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(NEW REDUCED PRICE? ) 

BEYOND TRS-80 

When MICROSOFT put Level II BASIC 
on TRS-80, you got a glimpse of its full 

potential. 

Now Microsoft introduces: 

TRS-80 FORTRAN 

and TRS-80 will never be the same! 

Plus 

TRS-80 FORTRAN includes the finest 
Z-80 development software available 

Z-80 Macro Assembler 
Versatile Text Editor 
Linking Loader 
TOTAL PRICE: $5j5^ 



TRS-80 FORTRAN Is supplied on 
two minidiskettes ana requires a 
32K system with one disk drive. 




Order from 

Tf £ TR*-60 Software Exchange 

IjV 17BMIAH CLIFF DRIVE MILFOBO. NEW HAMPSHIRE 03055 

Telephone [603] 673-5144 ^ | 
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SoftSide magazine is continually seeking original articles 
and software for publication. Imagination and variety in 
concept and content are the rutes at SoftSide — not the 
exceptions. Articles are purchased on a per-page basis, 
based on content and applicability. Our policies with 
respect to software purchase are highly Individualized, and 
offer the programmer several options, including one-time 
publication rights, outright purchase, and royalties an sale 
of pre-recorded cassettes. "For more information, please 
write; SoftSide, PO Box 68, Mil ford, NH 03055. 
For uniformity, we have adopted the Radio Shack TRS-80 
Level II BASIC as the BASIC dialect used within the pages 
of this magazine. It was chosen because it stands to become 
the most commonly used dialect among mocrocomputer 
users and because it shares a common heritage with the 
i many microcomputer languages produced by Microsoft. 



SoftSide is published monthly 
by SoftSide Publications, 17 Briar 
Cliff Or. Milford, NH 03055 
Telephone; 603-673-5144. Sub- 
scription rates: USA bulk rate — 
$18 per year. USA first class, 
APO, FPO, Canada, Mexico, 
overseas surface mail - $2S oer 
year. Overseas airmail - $3I> per 
year. All remittances must be in 
U.S. funds. Mail subscirption 
inquiries to: SoftSide Subscrip- 
tions, PO Box 68, Milford, NH 
03O55. Entire contents copyright 
1979 (ySoftSioe Publications. All 
Rights Reserved. 
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Uier of the Month 

Our TRS-80 user of the month for September is FLW 
Associates of Alexandria, Virginia. These creative folks have 
developed a computer application that does not require any 
software (except Blackjack, Backgammon, and Level I BASIC). 
They use the TRS-80 to recruit "programmers, systems 
engineers, software engineers, and digital engineers" for 
placement with another company. How do they do this without 
a program? They give away the computer to anyone they place 
with the firm! So if you are in the indicated categories and don't 
want to pay for your TRS-80, contact them. 

Here's a challenge foryoul 

Why not develop a program on your TRS-80 to find the largest 
known prime number? We can offer a few hints. First of all, 
you are going to have to develop something better than double 
precision accuracy. The most recently discovered largest prime 
has 13,395 digits. Naturally, I would like to print the whole 
thing here, but due to lack of space in the magazine, you will 
have to settle for scientific notation. The number Is (2 44497 )-1. 
If you find a larger one, let us know! The present number took 
300 hours to find on CRAY-1 computer outputting one trillion 
bits per second, starting with the previous largest known prime 
and trying all likely numbers. As another hint to help you get 
started; you don't need to check any even numbers. 

New Hampshire Happenings 

Things are nice and busy at the home office, where we are in 
the process of purchasing larger quarters and moving. We're 
also planning two new magazines; one to support the Apple 
computer (AppleSeed™), and one for computer chess, 
(MicroPawn"). Plans to reactivate the cassette version of 
SoftSide are also afoot. It will fill the gap between the software 
we publish in the magazine and that sold through the TRS-80 
Software Exchange. 

So many of the good programs that we are now receiving use 
machine language subroutines or supergraphics, or come from 
other publishers, that there will be few overlaps between the 
programs we offer in the magazine and the ones we sell. 
Therefore, we feel that a cassette version of the magazine may 
be the only way to provide our programs to those who are not 
willing to type them in. Incidentally, that means that if you 
have been waiting for one of our advertised programs to be 
featured in the magazine, it is unlikely that your hopes will be 
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realized. Future programs will largely be offered in one 
medium only. 



Considering a disk drive? 

Our June reader's poll indicated that while only a few of you 
have disk drives, many more are considering them. Perhaps it 
will be helpful if we share our own love/hate affair with you. 
Why would anyone in his or her right mind pay $500 for a front 
loading toaster that only accepts ultra thin bread? On the other 
hand, why is it that there is a half inch of dust on the last 
cassette I bought? 

For many people the decision to go disk comes when you run 
out of things to do while a 16K program is loading into your 
computer from tape. For the rest, the moment comes when you 
realize that it didn't load correctly and you have to do it again. 
My own disk drive paid for itself rapidly in time spent 
programming instead of CSAVEing, CLOADing, and 
CLOAD?ing, not to mention starting from scratch because of a 
flaw on a tape or because I put it down on top of the power 
supply. I had the disk drive six months before I ever used it for 
anything except as a replacement for tape loading and 
unloading. The problem of loading SYSTEM tapes was so bad 
that I might have spent the $500 with a psychiatrist if I hadn't 
bought the disk. It is so nice to be able to reliably load a 16K 
program in seconds, and not even worry about a volume control! 

Even without using disk files, some nice fringe benefits came 
with the disk system. I like the enhancements of disk BASIC, 
including the expanded error messages, the real time clock, and 
the automatic keyboard debounce loading. The ease of making 
backup copies of my programs meant that I did it more often, 
which saved my neck a number of times. I learned to use 
machine language with the DEBUG monitor, and would 
probably have never bothered with Assembly language if it 
were not for the ease of loading the Assembler from disk. 

But the real purpose of a disk unit Is its file handling 
capability. If you are a business user of the computer, that 
Is probably why you bought the computer. Almost all prac- 
tical commercial programs require disk files, whether for 
accounts, inventory, reports, or statistical analysis. If you can 
use a commercial software package, or have hired someone else 
to write one for you, you will be using this capability of your disk 
rapidly. However, if you are writing your own software, it may 
be some time before you are using your disk drive fully. It is 
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easy to learn Level I BASIC. H Is moderately difficult to gain 
skill with Level II BASIC. It is downright demanding to become 
accomplished in Disk Input/Output Operations, especially with 
random files. Once you gain skill with file handling, you will 
discover the difference between a fancy calculator and real data 
processing. 

Unfortunately, by that time you will also have discovered the 
limitations of your disk drives. First of all, you will learn that a 
disk does not really hold a great amount of data. When you first 
started programming on a 16K computer, you may have thought 
you had memory for any use, but when you havea mailing list or 
a large inventory, even the 350K bytes of a four disk system fill 
up fast. Even to store my programs now requires forty disks, 
and it is hard to find the one with the program I need. 

Worst of all are the reliability problems; Radio Shack's DOS 
2.2 has solved the worst nightmare, but there are still ways to 
spoil a complete disk. One of the most unforgivable, because it 
could easily be avoided, is when you try to KILL an open file, 
it scrambles the directory, giving you a disk full of garbage. 
But power failures, voltage transients, nearby radios and power 
supplies, and many other gremlins can aso crash a disk and 
bring heartache and tears. 

There are ways to go even beyond Radio Shack's Disk System. 
Percom Drives hold more data and access it faster, and 
NewDOS from Apparat is greatly superior to even DOS 2.2, with 
extra features and extra reliability and speed. Another 
DOS from the original author of the Radio Shack DOS has been 
advertised for months, but no one we know has been able to get 
a copy. Months ago we ordered one by phone and were 
promised delivery in a few days, but have not received it. 

To those of you still weighing the pros and cons on disk 
drives, we have to say, on balance, that most of us with disk 
experience — despite the faults and frustrations — would 
rather fight than switch. 



w®> 



v. 

6 



X Will 15 II 



by Chris Freund 

For the thousands 
who have enjoyed 
X-Wing Fighter, 
X-Wing II presents 
a totally new element 
in the game! 




wm$k 




You are Pilot of 

an X-Wing 

v fighter... 



J Where X-Wing I left Death Star 
looming on the screen, X-Wing II Jets you guide your 
fighter into the trench, find the exhaust port, aim and 
lire — all the while avoiding enemy fighters. Excellent 
graphics, 12 levels- of pfay, and Extensive INKLYS 
commands make this one of our -most exciting 
'real-time" games. 

Level II, 16K - $9.95 

Tf £ TRI-80 Software Exchange 

H J ^H 17BHItnct.lFFORIVE MILFOBD, NEWHMMFSHIflE OJOSS 
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Playing the Came 

You will be exploring a dungeon of rooms and passages. In this 
dungeon you will find a'yariety of monsters. Defeat the' monsters, and 
you will usually gain treasure. But if you are weakened, you may be 
killed. 

The screen will display the section of the dungeon you are in as 
viewed from above. You are represented by a small figure in the center of 
the room. North is to the top. East to die right, etc. The boundaries of the 
room represent the type of walls around you. A solid line means a solid 
wall (or perhaps a secret door), a solid line with a 'D' means a closed 
door; on 'O' means an open door. A gap in a line mens an open passage, 
and no line at all means that you can see no wall in that direction. 

The basic commands are: N, E, S, W, D, Q. The first "four move you 
in the indicated direction, 'D' redraws the room, and 'Q' reports on your 
current status (strength, treasure, etc.]. When you move in any 
direction, if there is a passage or no wall, you will automatically go to the 
next section. If the wall has a door, you may then listen or try to open it; if 
the door is open, you may pass through it. If there is a solid wall, you may 
searih for secret doors and if you find one, you may listen or open as 
above with a regular door. Some doors may only go in one direction and 
not .allow you to return the way you came; sometimes you may fall 
through a trap into a new room. 

Drawing the dungeon on. a piece of graph paper as you go along will 
make the interconnections of rooms and passages much clearer {and will 
also help you find your way back if you become lost). 

If you find a monster, the display will show a huge monstrous figure 
in the center of the room. You may run or fight. If you fight, you both 
exchange plows until one is defeated or, you retreat, if you keep ©n 
fighting against a strong monster, you may be killed. If you run away, the 
monster may strike a parting blow &nd you may drop some treasure,. If 
you defeat the monster, you will then gain its treasure if "one exists. It Is 
always a good idea to check your strength after a fight to see if you need 
1 resti ..-.- , '-.v . 
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When you find and defeat alt the monsters, the game is over. You 
may then rate yourself on how long it has taken you. For the first 
adventure, anything less than 100 hours in dungeon time is pretty good. 
If you wish to quit before all the monsters are defeated, you may do so by 
going back to the entrance and pressing 'Q'; you will then be asked if you 
want to quit or not. 

Program Design: 

The program is designed in a top-down structured fashion:;' The 
following diagram shows this more clearly All major program blocks 
have clearly defined functions and are accessed as subroutines using 
GOSUBs. Within sub-blocks the execution flow is generally sequential 
with only limited use of COTOs to control the programming flow 

All input uses the INKEY$ function which provides instantaneous 
response withour ever needing to press the ENTER key. The VAL 
function is used to strip numeric values off of the alphanumeric room 
pointerdata. 

The basic program and the particular adventure are independent 
entities. The program provides a structure which can run any number of 
dungeon adventures. The actual adventure is represented entirely by 
data, stored here as data statements. An entirely different adventure 
could be created by changing these data statements. Or a different 
dungeon description could be stored on tape or disk, and a short 
subroutine could read the data from there. 



VARIABLE NAMES 



Program variables: 


Dungeon d 


PA 


Player Attack Factor 




PD 


Player Defense Factor 


AD$(1-4) 


PT 


Player Treasure 


NR 


MK 


Monster Defeated 


NM 


TM 


Elapsed Time 


NT 


PR 


Previous Room 


IR 


IM 


Monster Key 


RD$(NR) 


IR 


Current Room 


RP*(NR,4) 


IT 


Treasure Key 


RM(NR) 


IX 


Next Room 


IM 


D$ 


Current Command Key 


MD$(NM) 


K$ 


Current Wail Key 


MA(NM) 


IS 


INKEYJValue 


MD(NM) 


P$ 


Player Graphic 


MT(NM) 


M$ 


Monster Graphic 


IT 


WH$ 


Horizontal Walt 


TD$(NT) 


WV$ 


Vertical Wall 


TV(NT) 



Adventure Description 
Number of Sections 
Number of Monsters 
Number of Treasures 
Room Number 
Room Description 
Room Pointers 
Room Monster Key 
Monster Number 
Monster Description 
Monster Attack Value 
Monster Defense Value 
Monster Treasure Key 
Treasure Number 
Treasure Description 
Treasure Value 
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Creating a Dungeon: 

The best way to create a dungeon is to draw it out first on graph 
paper. Keeping it consistent with Euclidean geometry will make it much 
less confusing for the adventurers. Then number each section of dungeon 
with a continuous series of numbers. Do the same for the monsters and 
treasures, Decide also what the descriptions are going to be. 

You are now ready to enter the data. The data lines in the program 
provide an example. First are four lines of string data describing the 
dungeon. Then the number of rooms, monsters, treasures. Then you are 
ready to enter the room, monster and treasure data in that order. 

The room data is: room#, room description, room pointers 1 thru 4, 
monster#. The room pointers show the linkages with the other rooms. 
The format is 'Rm#Key', e.g. '12D' means that that wall has a door 
which leads to room 12. The keys are as follows: D — door, O — open 
door, S — secret door, P — passage, C — clear, T — trap, W — solid 
wall. The monster# indicates^th^mwrwte^that appears in the room, 
usually 0. 



The monst 
value, treasure^. , 





: s irtonster#, description, 



j sure data is: treasure#, description, value. 

MafeiSure that the number of data lines correspond tot 
rooms, monsters arid tr 
error will result. 




value, defense 



number of 
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PROGRAM COMMENTARY 

ROUTINE: SETUP 

LINE: 100-195 

PURPOSE: This part sets up the program variables and reads the 

dungeon data. 

PROCESS: The player starts at full strength with no treasure 

(PA = 10, attack strength; PD-10, defense; PT = 0, 
treasure). String variables are defined for the graphic 
display elements: P$, player; M$, monster; WH$, 
horizontal wall; WV$, vertical wall. Since the graphic 
displays occupy several screen lines, CHR$(26) is used 
to go down to the next line and CHR${8) is used to 
backspace. The Subroutine at 9000 reads the 
descriptive dungeon data. The adventure always starts 
in room 1 (1R=1, current room; PR = 1, previous 
room). 

10 ' TREASURE DUNGEON 2 

26 ' BY OflVID E miTE 

38 ' 38 APRIL 1379 __._.... ._■ 

35 ' REVISED 27 JUNE 1979 

98 ' 

166 ' SETTING UP THE PROGRflM 

182 OS: PRINTS 268, CHR*<23)j "TREflSURE DUNGEON 2 

135 00*588: DEFINT ft-Z 

126 HM0: PD=16: PT=6 

139 ' GRflPMCS 

148 r^Crm<174>+CHR$(132)+CHR*CK)-KHR*(8)+CHR*(8)+CrRIC129)tCH 

R*<129> 

156 n^^3^<138>+CHR$<191)+CHR*<133>+CHR$(26)+STRING*(5 ) 6) + CHR 

*(148>+D«* a43)+CHR*U71>+CHR*<191>+CHR* C15i>+CHR*<i43HCHR$<14 

SHCHRK&J+STRINGK&S) + CH»(i^>+Cr*W191>+CHRm51>+ChlW(i9 

1)CHR»(144) 

166 l*tt=STRINGI<7,8HSTRING*(15,i4e) 

165 V$=CHR*<191>+CHR$(26)+CHR*<8> 

176 HVt=STR ING*<£ 2?)+CHR*<18S)+CHR*<:26>+CH»<8)+V*tV$+V*+CHR$(l 

43) 

186 DIH L<4*: K$=" 8 : M*"": W$=* u 

185 ' 

1% GOSUB 9668 'REfiD DUNGEON DflTft 

195 IR=1: PR=1 

199 ' 
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ROUTINE: DUNGEON INTRODUCTION 

LINE: 200-270 

PURPOSE: This section introduces the player to the dungeon. 

PROCESS: First several lines of general introduction are given. 

Then four unique strings of dungeon description which 
were previously read as part of the dungeon data are 
printed, AD${1-4). The player is also told how many 
sections and monsters there are in this particular 
dungeon. The subroutine at 5000 is a commonly used 
one which merely waits for the player's response. 

260 CLS 

285 PRINT 

218 PRINT'-VOU RRE ABOUT TO ENTER ON AH (©VENTURE. 

226 PRINT "IF YOU RRE HflRV RND HISE, VOU MfiV SURVIVE. 

233 PRINT 

248 FOR I=i TO 4: PRINT fiD$<I>: NEXT 

243 PRINT: PKINT'THERE RRE";NR; "SECTIONS ftND 

245 PRINT'THERE ARE"; Mb "MONSTERS IN THE DUNGEGM 

256 PRINT: PRINT B COl#W»S: N-MKTH> E-EflSL S-SOUTH, H-MESL D~ 
DRfiU Q-OUERV 

278 6QSUB 5866 

49$ ' 

ROUTINE: COMMAND SECTION 

LINE: 500-690 

PURPOSE: Display current position and interpret basic player 

commands. 

PROCESS: This is the primary control section which calls on other 

program elements and can be viewed as the top 
element in the program hierarchy. The subroutine at 
6000drawsthegraphicdisplayof theroom. If there is a 
monster in the room, the monster routine section at 
7000 is then immediately called. Otherwise the 
command line is printed at the center of the screen and 
the INKEYS function is used to wait for a response If 
the player command indicates a direction (N, E, S, W), 
then the direction index I is set and control jumps to 
the movement block at 700. If another valid command 
(D,Q) is specified or an invalid command is given, then 
the program calls the appropriate subroutine, returns, 
and loops back to accept the next player command 



560 ' COMHftND SECTION 

526 CLS: G05U6 6886 

556 IF RrKlR>Oe GOSUB 7668 

618 PRINT! 576, "C0ITOtf> (N,E,S,W,D.6> 
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626 D*=lM(Ev$ 
639 IF W*'H" 

646 IF W*"E" 
658 IF E)*="S" 

669 IF D$= H H" 

670 IF D$= U D" 
686 IF D$='W 
639 SOTO 610 



: IF 0$="" GOTO 620 
THEN 1=1 6010 780 
THEN 1=2: GOTO 790 
THEN 1=3. GOTO 763 
THEN 1=4. QOTO 766 
THEN QDSUB 6098 
THEN 60SUB im 



ROUTINE: MOVEMENT 

LINE: 700-800 

PURPOSE: Control movement in the dungeon. 

PROCESS: After a movement direction 1 is specified, the room 

pointer key RP$(IR,l),is decoded using the current 
room number 1R and direction index I to determine the 
type of wall on that side of the room. The room pointer 
keys are dimensioned string variables consisting of a 
number followed by a letter: the number indicates the 
adjacent room (if any) in that direction, and the letter 
indicates the type of passage or wall. By pulling off the 
rightmost letter using RIGHTS, the type of passage is 
determined as follows: 

O Open Door 

W Solid Wall 

S Secret Door 

D Closed Door 

F False Door 

P PASSAGE 

C Clear, no wall 

T Trap Door Passage 

Based on this key the appropriate subroutine is called. 
Then upon return, control is transferred back to the 
start of the Command section again . 

760 'HOVEMENT 

710 K*=RIGHT*<RF*afcI>.i) 

715 IF K$="0" THEN G05U6 3388 

720 IF K*="H" OR K$=V THEN GOSUB 2000 

739 IF K*="D" OR K*="F" THEN Q05UB 3000 

74& IF K$= D P" OR K$="C" THEN GOSUB 4008 

758 IF K**T THEN PRINT"V0U FALL THRU A TRFP I". : F0RX=1TQ588'N 

EXT: GOSUB 4880 

860 GOTO 563 

993 ' 
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ROUTINE: PLAYER STATUS 

LINE: 1000-1190 

PURPOSE: Informs the player of the current status of the 

adventure. 

PROCESS: The dungeon time variable TM which is kept in 

minutes is converted to hours (by dividing by 60) and 
minutes (the remainder) for the display. The player 
attack strength variable PA and defense strength PD 
are converted to desscriptive adjectives to give the 
player a verbal indication of his current strength and 
wounds. The monsters defeated and treasure collected 
are next reported. If the pleyer's strengths are below a 
certain level, he may then rest to recover. The use of 
the INKEYS function allows him to rest from to 9 
hours. If the player is in room 1 or has defeated all the 
monsters, he may quit the game. 

M».' STATUS 

im as 

1615 HHKKW68> : IH=Trt-6@*IH 

1826 PRINTK4, "VQU HAVE BEEN GONE FOR", IH, "HOURS fiND"; lit "MINUT 
ES. - 

i838S*= u STR0MG 

1012 ...IF Pft<=6 THEN S*='HEflRV: IF Pft<=2 THEN S*="NERK" 
1835 C^W 

163? IF PD<=8 THEN C*= n SL16HTLr : IF PD<=6 THEN Ct= H PKH>ERftTELV* ; 
IF PD02 THEN C*="S£VERELV" 

1646 PRIN7"YQU FEEL "jS*;", AND ARE ";»;" WOUNDED. " 
MG&.-pftlMT: PRINT"Y0U HAVE DEFEATED"; MIC "MONSTERCS). " 
1866 PRINT: PRIHT"V0U HnVE TREASURE NORTH", PT, "GOLD PIECES." 
1076 IF Pfi+PD>16 THEN GOTO 1180 
108S, PRINT; PR1NT-VQU HAY REST TO RECOVER STRENGTH" 
1685 ■■ PRINT'HOli MANY HOURS WILL YOU REST ?" 
1650 I^IWEV*. IF 1*=" GOTO 1699 
1091 H=VAL<IJ>; IF HCL GOTO 1166 

1692 -■ PRINT"RESTING n > : FOR IH=1 TO H: FGRX=1TO1860 : NEXTX : PRIN 
T" 2"; : NEXT: PRINT 

1633 PRINT"Y0U REST FORNft "HOURS. ": TN=TM+60*H 
1394.- PR=Pf!+RND<H>: IF PfiMB THEN PA=16 
1896 POtfHRMXH): IF PD>16 THEN PD=10 
11S6 IF KKONH GOTO 1126 
1116 PRINT: PR1NT"Y0U hWE DEFE8TED ALL THE H0H5TER5. 

1115 fftlNT'Ttt GfiHE IS NOW COMPLETED ": END 
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HARDUJfiRG 

Trt€ r+dRDflD€™Of SOFTCIDS ? 

NEW! TRS-80 Computers 10% off! 

Effective July 1. Radio Shack dropped the price of TRS-80 equipment, On the same 
date, we received authorization to soil the complete TRS-80 line, at 10% below the new 
low Radio Shack price. This all new equipment, with Radio Shack warranty and service, 
is now made more affordable than ever! 

If you're looking to save even more, consider Hardside's used equipment 
department for prime condition, previously owned TRS-80 equipment. 

Do you have something to sell? Hardside will buy any used Radio Shack TRS-80 
equipment in good condition. Refer to our price list below. 

So ... if you're looking to buy or sell TRS-80 equipment, look to us first! 



NEW 




USED 




UN|T NEWIUS 
' ■' LIST PRICE 


HARDSIDE 

DISCOUNT 

PRICE 


WE'LL PAY 


SELL 


Level I 4K $499 


S449 


$275 


1376 


LeveMMK 1619 


$557 


£370 


$475 


Level I16K $729 


$656 


$365 


$475 


Level II 16K $B49 


$764 


$500 


$650 


Level It 16K no keypad 


$669 


$450 


£600 


Expansion Interface 








.OK $lt! 


S240 


$175 


$225 


16K sit* 


$315 


£225 


$300 


32K $46» 


$390 


$275 


$375 


Disk Drives $499 


$449 


$300 


S399 


1 £499 


$449 


$275 


$375 


(Pereom diskdrives - 


$399 


- 


- 


Printers Friction lead' $1299 


si -m 


$650 


$800 


Tractor Feed" $1559 


$1403 


£750 


$900 


LinePrinlerll $999 


$899 


New item Not available 


Quick Printer 1* $499 


$449 


£250 


£325 


Quick Printer II $21 g 


$197 


£125 


$175 


"(Requires cable $40 


$36 ) 






RS-232C $99 


$89 


$50 


$75 


Telephone Int. 1 Discontinued 


£50 


$75 


Telephone Int II $199 


$179 


$100 

6 


$150 


1SK Memory $149 


$99 





SPECIAL INTRODUCTORY OFFER FROM HARDSIDE 16K expansion interface with single disk 
drive £750. 



TELEPHONE: 603-673-5144 
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Prices Do Not Include Shipping 
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EXIDY SORCERER 

Until recentfy, you couldn't buy a microcomputer with the power and 
features of the Exidy Sorcerer. Now, an 8K RAM, 12K ROM Sorcerer 
is only $995.00. Advanced features include built-in monitor in ROM 
(including memory and video tests), ultra-high resolution graphics 
(S12 x 240), upper/ lower case, user-definable character set, and 1200 
baud cassette 1 10. Plus, 64 x 30 video (displays twice as much text as 
TRS-80), built in RS-232, parallel port, and the most complete 
keyboard of any microcomputer on the market. And, best of all, the 
Sorcerer is compatible with both CP/M and the S-100 bus for 
unlimited software and hardware expansion. Take a step up to 
Sorcerer power today! 





PRICE LIST 




Sorcerer Computer 


16K RAM 
32K RAM 
48K RAM 


$995 
$1095 
$1195 


ROM Software Cartridges - 

Word Processor $99 
Editor/ Assembler $99 
BASIC [Included free with computer] $99 


Hardware Expansion 

S-100 Expansion Unit 
S-100 I/O Expansion Kit 


$349 
$199 


LEEDEX Video 100 monitor 


$139.95 



(The Sorcerer requires a video monitor or connection to a TV through an RF modulator.) 



Hmk&idc 



TM 

Your market for new and used 



microcomputer equipment. 
17 Brlarcfiff Drive Miiford, New Hampshire 03055 
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1128 IF IRO-i GOTO 1156 

1125 PRINT" 

YOU ARE BflCK AT THE ENTRANCE. 

DO YOU WISH TO QOIT?" 

1136 K»=1HKEV»: IF K$="" GOTO 1138 

1135 IF KS="Y" TWEN PRINT'COHE BflCK ftGftlH. ": END 

1156 GQSUB 5880 

1178 SOSUB 6898 

11S6 RETURN 

1999 ' 

ROUTINE: WALL 

LINE: 2000-2080 

PURPOSE: Possible actions at a blank wall. 

PROCESS: The player may search a solid wall. If he searches and 

there is a secret door, there is a 50% chance that he 
will discover it. If it is discovered, then the door routine 
at 3000 is called. If the player does not wish to search, 
then the subroutine returns to the command section. 

2986 ' WLL 

2619 PRINTS 576, "YOU ftRE AT THE H ,D*;" WALL ": FOR K=l TO 569: H 

EXT 

2828 PRINTS 640, "00 VOU WISH TO SEARCH IT V 

2838 I$=INKEY#: IF !*=•" GOTO 2036 

2649 IF IK>"Y B THEN RETURN 

2845 TM=TH+5 

2858 IF KJO"S" OR RNDG»=2 THEN PRIHT'VOU FIND NOTHING. ", . SOT 

G 2816 

2066 PRINT VOU FIND Fi SECRET DO0R"i 

2878 GOSUB 3088 

2880 RETURN 

2959 ' 



ROUTINE: DOOR 

LINE: 3000-3080 

PURPOSE: Actions at a door. 

PROCESS: This section controls the possible player actions at a 

closed door, where he may listen (L), attempt to open 
(O), or return to the promary command mode (R). 

im ■ [300R 

3818 W=Vnt(RP$aR,l>> 

3628 PRINT! 576, "VOU ARE M THE ">E)*i 

XT 



DOOR": FOR JC=i TO 508: NE 
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2630 IF K$= B 0" GOTO 3586'OPEN 

3048 PRINTS 646, "LISTEN <±), OPEN (0), OR RETURN <R> ?• 

2658 II=INKEV»: IF 11="" GOTO 3658 

2868 IF tt="L" GOTO 3188 

3878 IF I$= H 0" GOTO 3288 



2889 GOTO 3648 

269S ' 

ROUTINE: 
LINE: 
PURPOSE: 
PROCESS: 



3168 'LISTEN 
3185 Tt1=Tr1+2 



LISTEN 

3100-3190 

Listening at a dosed door. 

When the player listens at a door there is a 33% chance 

that he will hear some random sound if there is a 

monster in the next room, and a 10% chance if there is 

nothing there. 



IF RMIXKje GOTO 3128 
3118 IF RMX1B»1 THEM PR1N7"Y0U HERR NOTHING", : GOTO 31% 
2115 GOTO 3128 

312ft 3F KNiK3» : 2 THEN PRINT"VDU HEAR NOTHING"; : GOTO 3158 
3138 ON RND<4) GOTO 3132,2134,3126,3128 
3132 PR1NT"THERE IS ft STRANGE SOUND", : GOTO 2198 
3134 PR1NTR MUFFLED SCREflH IS HEARD .. "i : GOTO 21% 
3136 PRINT u fl CLANKING"; : GOTO 3198 
3128 PRINT K 5Gf€THING IS BEING DRftSGED", : GOTO 3196 
2196 GOTO 3826 
2199 ' 



ROUTINE: OPEN DOOR 

LINE: 3200-3240 

PURPOSE: Attempting to open a door. 

PROCESS: The player has a 50% chance of opening a closed door 

on each attempt, but a false door (F) will never open. 
The room pointer key is then changed from "D" to 
"O" to indicate an open door. If the adjacent room also 
has a door at the appropriate spot (e.g. on the West 
wall if an East door is opened), then that door is 
opened as well. In that case J is used as the direction 
index for the next room by rotating clockwise 1&0 
degrees from the current room direction index 1 
(J =! + '/,). 
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3269 'OPEN (man 
3285 TM=TlH3 

3210 IF RND<2»=2 OR K*="F" THEN PRINTTHE DOOR WES MOT OPEN"; : 
GOTO 3828 
3215 PRINT-THE DOOR OPENS"; : F0RX=1TQ588:NEXT 
3228 IF RIGHTttRPttHMM^O'D" THEN GOTO 3568 
3225 RP$(IR, I)=STR*<lX)+"0" 
3238 M+2: IF JM THEN J=J-4 

3246 IF VrURWCIX, J)>=IR UNO RIGHTiCRPttlX. JM>='t>" THEN RP* 
<I^J)=$TRt<lR>+ , 'O s 

2439 ' 



ROUTINE: OPENED DOOR 

LINE: 3500-3550 

PURPOSE: Actions at an open door, 

PROCESS; If the door is open and there is a monster in the next 

room, then there is a 50% chance that the player will 
be warned. The player may decide to enter or not to 
enter the next room. If he enters, then the' Room 
Movement routine is called. But in any case, control is 
next transferred back to the main Command section, 

3588 'OPENED OOOR 

3585 IJWtt_<RP$aiM» 

3518 IF RH<lX>Oe ftND RND<2>=2 THEN PRINT? 576, "THERE IS ft RONS 

TER THERE I" 

3528 PRINTS' S46, "THE DOOR IS OPEN. DO VOU WISH TO ENTER ?" 

3539 U=1NK£Y$: IF I*=" GOTO 3538 

2548 IF I$s"V" THEN G05UB 4688 

3558 RETURN ^ 

3399 ' 

ROUTINE: ROOM MOVEMENT 

LINE: 4000-4090 

PURPOSE: Move player in the dungeon. 

PROCESS: As the player moves from one section to another either 

through doors, passages, traps, etc. , this subroutine is 
called to change the current room indicator variable 1R 
and the previous room indicator PR. Also, open doors 
closed behind the player 50% of the time by changing 
the room pointer indicator keys from "?" to "D". 
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4068 ' ftOVEMENT 

4065 m=TM+5 

4816 IX=VRLCRP$afU>> 

4615 IF IX<i OR DOUR THEN PRINTS 648, u CflN NOT GO IN THAT DIRECT 

IOK '; : FORX=1TO506 : f£XT : I^TL^N 

4626 'CLOSING DOORS 

4836 IF RRK6K=3 Ofi KtO'O" GOTO 4686 

4840 RP$<IR,1)=STR*(IX>+"D" 

4856 J=I+2: IF J>4 THEN J-J-4 

4060 IF VflL<^t<IX, J>>=IR THEN RF'*< IX. J>=STR*<IR)+"D" 

4886 WMk: 1R=IX 

4896 RETURN 

4559 ' 



ROUTINE: WAIT 

LINE: 5000-5040 

PURPOSE: Wait for player response. 

PROCESS: This is called several times 40 halt all program action 

until the player responds. 

5686 'WIT 

5616 X*=IHKEY* 

5626 PRINTS 960, "<PRESS flHV KEV TO CONTINUE} 1 '; 

5638 IF INKEY^ 1 "' GOTO 5838 

5846 RETURN 

5399 ' 



ROUTINE: ROOM DESCRIPTION 

LINE: 6000-6100 

PURPOSE: Graphic room display. 

PROCESS: The room description data RD${I R} is printed at the top 

of the screen. The screen locations for the centers of 
the four walls are specified by L(1-4). The four walls 
are displayed in sequence using the vertical and 
horizontal wall variables (WV$ & WHS). In the center 
of each wall, the 0$ variable is printed to indicate the 
type of opening as given by the room pointer key RP$ 
for the appropriate direction. If there is a monster in 
the room, then the monster graphic is printed in the 
center, otherwise the player graphic is displayed. 
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6eee ' room description 

6818 as. PRINTS ^RDSaR); 

6825 L<1>=156: L(2)=292: LG>=412: L<4>=276 

6836 FOR 1=1 TO 4 

6635 IF 1=1 OR 1=2 THEN W*=f*«: aSE W$=HV* 

6848 K*=RIGHT*<RP*<UU>,1> 

6845 0$="" 

6856 IF K*="D» OR K$="F" THEN £*=" D ' 

6866 IF K*="0" 7VEN 0$=' ■ 

6678 IF K^-p* THEM 0$= u " 

6886 IF K*="C" TrENN**" " 

6687 PRINT* L<I>,U$; : PRINTS KV-hOti 

6698 NEXT I 

6695 IF HD(RrKIft»<=0 THEN PRINT? 284,Pfc ELSE PRINT* 219,11$; 

6166 RETURN 

6999 ' 



ROUTINE: 
LINE: 
PURPOSE: 
PROCESS: 



7660 ' H0N5TER 
7916 IfMWIR): 



MONSTER 

7000-7080 

Monster interaction. 

This procedure prints the monster description,. 
MD$(IM), and gives a warning based on the relative 
strength of the player and the monster. The player has 
the choice of running or fighting. 



IF NXin><s0 THEN RKI<IR)=6: RETURN 
7628 PRINTS' 512, rfl*<IH) 

7825 PRINT: IF Hfi<IrJ»FE> THEN PRIKFIT LOOKS PRETTV OftNGEROUS. 
ELSE PRINT "YOU MIGHT BE ABLE TO HfWLE THIS. " 
7646 PRINT* 8%, "RUN CR) OR FISHT CF> ? a 
7659 1*=INKEV*: IF 1$="" QOTO 7656 
7668 IF K='R" THEN GOTO 7166 
7676 IF I*="F",THEN QOTO 7288 
7036 QOTO 7058 
7099 ' 



ROUTINE; 
LINE: 
PURPOSE: 
PROCESS: 
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RUN AWAY 

7100-7190 

Escaping from the monster. 

If the player runs, the monster has a chance 
(depending on the relative strengths) of striking a 
parting blow and wounding the player. The VAL 
function is used to scan through the current room 



pointers to determine if there is a direct connection to 
the previous room from which the player entered. The 
VAL function returns the numeric portion of the room 
pointer data RP$, which thus gives the adjacent room 
numbers If there is a direct return connection, then 
the player is returned to the previous room, otherwise 
the player is sent to an adjacent room at random. The 
player may also lose some treasure as he runs, which 
the monster then gains. 
7166 'RUN flUftV 

7165 TfcTK+2: CLS: PRINTS 448, CHR$(23); 

7116 IF RWXflfl<lH>»PE> THEN PRINT "THE MONSTER WOUNDS TOO ": PD= 

PD-1: ELSE PRim-VOU ESCflPE UNHftRfEfc " 

7128 FOR >1 TO 4 

7122 IF VfiL<RP$(lR,J»=PR THEN I=J 

7124 NEXT 

7126 IF D0 fffi K=4 THEN GOTO 7136 

7128 I=RN£><4): IF VHL(RP»(lfc I)>=0 GOTO 7128 

7136 IF RND(6)>=3 OR PT=6 THEN GOTO 7186 

7140 LT=PT*RhtK5)/16: PT=PT-LT 

7158 PRINT: PRINFVOU DROP TREASURE WORTH", U;"8P" 

7166 TY<nT<Itf}>=TV<nTmi»+LT 
7186 FOR X=i TO 2090: HEKT 
7185 GOSUB 4668: GOSUB 6006 
7196 RETURN 

7199 ' 

ROUTINE: FIGHT 

LINE: 7200-7300 

PURPOSE: Combat with the monster. 

PROCESS: Line 7204 is used to clear the previous combat lines 

from the screen, using CHR$(30) which erases to the 
end of the line and CHR$(13} which goes to the start of 
the next line. The combat procedure is based on the 
relative strength differences between an attacker's 
attack strength and a defender's defense strength, the 
greater is the chance of hitting and the greater the 
damage. For example, MP is the difference between 
the monster's attack strength, MA(IM), and the 
player's defense strength, PD, (with a minimum 
difference of 2 set if it is less than that). The amount of 
damage is auniformly distributed random number 
generated from this base minus one. e.g. if MP—3, 

there is an equal 33% chance of damage o, 1,2. The 

same procedure is applied for the player attacking. If 
the monster defense strength, MD(IM), falls to or 

Continued on page 48 23 



PERIODICAL 
CROSS-REFERENCE 

by Dave Stambaugti 

YOU DON'T HAVE TO BE A LIBRARIAN 

Every professional or serious hobbyist who 
relies on current literature to update his/ 
her knowledge car benefit from this pro- 
gram. Build a file using any subjects or 
publications you like (IB per file). Allows 
you to add, delete, edit; search by sub- 
ject or publication; list on CRT or line 
printer all or selected entries. SAVE, LOAD with 
both tape and disk versions. 

Level II, 16K $14.95- Disk $19.95. 




lJf£TRI-80 Software Exchange 

jS| ^^ 1? Bri 3* Cliff Drive Mj-ilo'-d, New? Hsfnpahrre 03055 ^ 



_5ofE5iae. 

BACK ISSUES 

OCTOBER 

•Cribbage .State Capital Quiz 'Death Star 

•Calculator •Pillbox •Programming Hints 

NOVEMBER 

•End Zone • Troll's Gold 'Shopping List 'Octal 
to Hexadecimal 'Level I to Level II Conversion 
•Bad Cods Puzzler 'What They Never Told You 

About Level II 

DECEMBER 

•Spelling Bee 'San la Paravia en Fiumaccio 
■Blorhylhms *Slx Million Dollar Clock •Chess 
Clock 'Mortgage Calculation 

JANUARY 

•Hound the Horn 'Writing Good Computer 
Games 'Ten Pin Bowling 'High Speed 
Graphics *Comput-A-Skelch 'Kiddy Slot 

FEBRUARY 

•Form 1040 'Concent rat ion •Elements Quiz 
•Cribbage UPDATE ^Writing Good Computer 
Games (Part 2) 'Hints for Disk Users 

MARCH 

•Tarot 'Metric^ English converter -Dive Bomb 

•Personal Finance (Checkbook) 'Jig Saw 
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APRIL 

•Safari 'Babbits and Foxes 'Personal Finance 
(Checkfinder) *Series Circuits 'Don't It Make 
My Brown Eyes Blue 'Spring Flowers 
•Excerpt: A page from The BASIC Handbook 

MAY 

•Dog Star Adventure 'Awarl 'Letter Crunch 

•Math Drill 'Super Sub 

JUNE 

•Atlantic Balloon Crossing 'German Word 

Quiz -Nirn 'Home Appliance Record System 

•Entrapment 

JULY 

•All Star Baseball •Yahteee 'Tank 'Spelling 

Bee 'Collision 

AUGUST 

•Nuclear Reactor "Storybook 'Cryptogram 
•Shooting Gallery 'Morse Code Tutor 

Ordering Information 

While still available, back issues are (Z.50 
EACH, shipped via first Class Mail. Send 
check, money order or Master Charge /VISA 
payment with order lo: SoitSide, PO Box 88, 
Milford, NH 03055. If you really can't wait any 
tonger than necessary, telephone your charge 
card order any weekday between 9:30 and 5:30: 

603-673-5144 




It's Back to School Time! 



If you're heading back to school, or work, 

this (alt, you probably have often 

thought that it would be a lot easier 

if you didn't have to "hunt and 

peck" at the typewriter or 

computer keyboard. If you 

could only double your typing 

speed, the job would be done 

in half the time! And, with 

increased speed and confidence 

comes increased accuracy. 



TYPING TUTOR 



by SO US 

Typing Tutor is a set of programs designed to teach you touch 
typing — from the basics of learning where the keys are, to 
practice drills at speeds that would make aSelectric shudder! Each 
lesson is displayed on the screen, including, at the early stages, a 
keyboard diagram. You are quizzed and graded, and you progress 
at your own pace. When you have mastered a lesson, the computer 
advances to the next, using CAI (computer aided instruction). 
Progress is fast, painless, and even fun as you keep pushing to 
break your own record. 

So, whether you're going back to school or just want to enter 
programs from SoftSide that much faster, Typing Tutor can help. 

Order a copy today and be a better typist by next week. 



Levet II, 16K — $19.95 



Tf« 



TRS-0O Software Exchange 

17 Briar CNIIDriue Mi I ford. New Hampshire Q305S 
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THEN THERE WAS LEVEL II 

NOW - LEVEL III BASIC 

Now do more than ever before 

With the most powerful Basic you can buy 

For the TRS-80. 

Open the manual and lead the casserte. Then get ready to work with the most powerful Basic interpreter 
you've ever had your hands on , . , Level 111 6a.sk for Radio Shack Computers. It loads right on lop of the 
Level II ROM, and in just 5K of spate, opens up your capability to new dimensions. For starters, ihia new 
cassettc-based interpreter gives you the whole catalog. of disk programming power. Plus graphics commands. 

Plus Powerful editing commands. Plus long error messages, hex and octal constants and conversions, user 
defined functions and a number of commands never before available on cither cattle or disk interpreters f 

EASIER L OADING, FEWER KEYBOARD ERRORS . C2 Level ill Basic eliminates aggravations you've 
had, including keyboard '"bounce" and those super -sensitive tape deck settings. Programs will load easier, 

and you ll have far less trouble with input errors, 

BASl^ACCES ST Q RS-2 32. UniiJ now r if you wanted to access your RS-2J2 interface, you had to work in 
assembly language. ■ '.2 Level 111 Basic does the work for you, letting you use your interface with Basic 
statements. 

HAVE YO U WI S HEP FOR MORE POWER ? This new interpreter gives you 10 machine language user calls 
for subroutines, long error messages, a new TIME. J call for your real lime access-ory h plus measure or limit 
input timing that lets you put a lime limit on responses when you're playing games or giving exams. And the 
h'sl doesnt stop here. 

EASIER A ND M ORE POWERFUL GRAPHICS , This new Basic includes three simple commands that can 
eliminate dozens of program steps. PUT transfers information from a designated array to your screen; GET 
reverses the process. LINE makes your computer do the work when you input beginning and end points. 
Give it two diagonally opposite corner locations, and it II outline the rectangle you're looking for. 

ONLY MICRO SOFT COULD Dp IT, G2 Level Hi Bask was created by Microsoft, the same company thai 
wrote Level It Basic lor Radio Shack, And it actually uses Level li as a foundation for this enhanced add-on. 
By the time you've mastered all it can do, calling up the flexibility oi the graphics commands, and even 
enjoying the convenience of renumbering. youTI wonder how ii was all possible. It's like getting a whole new 
compute f for your computer. 

AVAILABLE NOW FOR ONLY $ 4 9,95 . You get the power thai might otherwise cost you hundreds of dollars 
in additional equipment fc* only $49.95, Price includes the Users Manual, a Quick Reference Card, and a 
preprogrammed easseite tape. Load the tape, open the manual, and get ready to work with the most 
powerful Basic inrerprciei you've ever had your hands on. Level 111 Basic for the TK_S-#0. 
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HANGMAN 



L '_ _L N N! 



by Russell Starkey 

Do you remember how boring a rainy afternoon could be when 
you were a kid? How you and your brother would get into a fight, and 
your mother would start to yell, and finally get you both settled down 
and quiet by suggesting agood game of HANGMAN? Now that 
you're all grown up and your brother has joined the Air Force and 
your mother has gone back to college, you can still dispel boredom 
with a good game of HANGMAN — even if you're alone, although a 
friend helps. 

The computer adds the excitement of a visual countdown, and 
spices the game with graphics as the hangman's victim takes shape 
on the screen with every missed guess. If you exceed the time limit, 
or miss seven times, you've had it — the rope appears around his 
neck, and you're HUNG! 

In the two-player mode, the competitive aspect is emphasized as 
one player invents the word or phrase on the spot and the other 
attempts to guess it. You guess a letter at a time and, if you pick one 
that's a hit, the letter appears in every position in which it belongs in 
the word or phrase. 

Solitary HANGMAN, on the other hand, depends on words and 
phrases put into the program. As it is now constructed, this program 
is for young and old alike, with words and phrases ranging from "see 
spot run" to "expansion interface". However, you can freshen the 
program with new words or alter its nature considerably by changing 
the data statement starting at line 2400 (a simple task). A whole new 
set of words, simpler or more difficult — some famous quotations, 
perhaps a foreign language, or a scientific vocabulary? With thought, 
many possibilities will suggest themselves. Perhaps you can 
ingeniously arrange to nave a friend insert material you are 
unfamiliar with, to retain the mystery. 

As you can see, the old game of HANGMAN can be lots of fun in 
many ways, and also a great learning aid. So, on your next rainy 
afternoon, draw a chair up to your computer and start keyboarding 
this program! 
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0' ***************** 

* 50FT5IDE PRESENTS * 

* vtmm * 

* BY RUSSELL STRRKEY * 
***************** 

16 REK REV < 2 ) 

26 REK HANGMAN THO PL8YER ALSO SOLITARY BV RUSSELL STflRKEY 

36 RBI 4K SYSTEMS LORD IN TWO PARTS : 

46 REfl LINES 120 TO 80& ARE FOR TWO aAYER HANGMAN 

58 RED LINES 666 TO 3466 ARE FOR SOLITARY HANGMAN 

66 POKE 16553, 255 : CLESR50 : G0SUB65e :PR1NT913& "H ft N G It R N " 

76 PRINT0326, "ENTER 1 FOR SOLITARY" 

89 FRINTH4& 'ENTER 2 FOR TWO PLAYER' 

98 5*=IHKEV*:IF S*="" THEN 98 

100 IF S$="l" OR S*='S" THEN RUN8K) 

110 IF S*="2" THEN RIM128 ELSE RUN 

126 CLEAR 260 :DEFSTR S : DEFM LK : GQSLK56 : DIH S6<30) 

130 GOSUB650 :PRINT«18, 'H fl H G M ft H * : FOR 12 = 1 TO 

2000 : NEXT 

140 S2="":GOSU6650 ; PRINT§128, "ENTER YOUR WORDS TO BE GUESSED. 

n 

156 PRINT0768, "PRESS / TO START OVER " 

166 S1=INKEY< :IFSi=""THEN 160 ELSE IF LEN(S2> >=26 OR 13=«SCC 

SI) THEN188 ELSE IF S1=V" THEN 148 ELSE..S2=S2+S1:PRINT?284 J S2 

:G0TG166 

176 STOP 

186 IFS2=""THEN166 ELSE S2=S2+" ":GGTO190 

190 ' GUESS COME POINT .... 

200 13 =832:H4=15360;H6=640:H=0:H3=6:H7=120 

218 ' INIT LOOP "-" 

226 FOR 12 = 1 TO 26 : S6<12) = "-" : NEXT 

230 GOSUB658 : Fl=6: HI =-1 

246 PRINT&28, "ENTER GUESSES TILL YOU'RE HUNG. " 

250 PRINT0514, "TlflE LEFT 128 SEC. •; ;F0RX=6 T032:SEKX,22):SE 

Ta27):NEXT:FCR X=23TG26:SET<aX):SET<92,X):NEXT 

266 S3=" • : GOTO 336 

270 ' COHE SACK POINT 

28S FW1+1 : IF Fl=26 Fl=6 : H7=H?-1 ; IF H7=-l THEN 616 
290 PRINTS, H7; 
308 S3=INK£Y* 



28 



310 IFS3=" THEN 270 
328 IF Fl=i THEN 2?8 

338 ' TEST LOOP O 

340 F=i : FOR 12 = i TO LOKS2) 
356 IF HI&KS2, IM>=53 THEN S6(I2> = S3 : F=2 
360 NEXT 

376 IF F=l THEN PRINTER S3; : IF S3 O S8 THEM 13=13+4 
; S0=S3 
'388 IF F=l H=H+i;GQSUB660 
398 IF F=2 Hl=Hl+i 
499 PRINTK5S, HI; "HITS", Hj "HISSES a J 

416 ' PRINT LOOP 

428 S7=" B :F0R 12 = 1 TO LEN<52> : 57=57+56(12) : NEXT 

: PRINTKOiS?; 

430 IF S7=S2 THEN 460 

449 IFH>=7 THEN 580 

450 GOTO270 

468 ' CORRECT COME POINT. . 

479 GOSUB659 :FCR Q=1T019:F0R X=9TQ945STEP RND<i8)+24:PRINm " 

WINNER ■>! ";:NEXTX,Q 
480GOSUB650 

490 02=02+1 :PRINTS12& "HINNER MINNER UIWER !H" 
589 PRINT?256, "YOU NEEDED "; 126-H7; " SECONDS " 
510 PRINT0384,S2 

520 PRINT?512, "YOU HRD "; H; •' MISSES. . . " 
530 FOR 12 = 1T0 2699 : NEXT 
546 PRINTS* "DO YOU HUNT TO PLAY AGAIN ? " 
558 INPUT SI : IF Si^YES" OR 51="Y" OR S1="RUN" OR Si = *G* T 
KEN 140 

560GOSUB653 :PRINT0320, "YOU HERE HUNG ■;«&" TIMES"; :PRINT019 
2, "YOU HON ";82;" TIKES "; :FORX=1TO1809:NEXT 
570 PRINTS. "SEE YOU AGAIN SOHETIHE ,, :PRINT:PRINT:EHD 
588 FOR X=i TO 708 : NEXT : ' HUNG COME POINT 
590GOSUB650 

680 Q1=S1+1:PRINTI?128, "HUNG !!!!!!!! HUNG !!!!!!! ! ■ : GO 

T0566 

618 ' OUT OF TIME COHE POINT 

628 FOR Q=1TO7-H3:GOSUB660 :NEXT:F0RQ=1 TO 2999 :NEXT 
638G0SUB659 
640 &=91+i:PRINTCi28,"0UT OF TIME ! ! ! TIME IS GONE I ! " : GOT 
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8588 

650 aS : PRINT CKR*C23> :RETURN 

669 'GRAPHICS PRINT 

678 H3=*£+1:C*IH3 GOTO 698 -718 <728 ,738 ,748 .758 ,760 

688 STOP 

698 FOR H5=H4+564 TO H4+570 :POKE K5> 131:PDKEHSK2S.131:rE)a:P0K 

EH4+564, 151 : P0KEH4+578, 171 

788 PGKEH4+628, 149 :PGKEH4+634, 178: RETURN 

718 SETC18B* 2C> :SET<113^ 26> : RETURN 

728 FOR H5=38T035:SET<H2.H5):SET<183,H5):NEXT:RETU»I 

738 FOR H5=i88T0121;SET<H5,36):NEXr:RETURN 

748 FOR H5=26TO44:SETa08,H5>:SET<124,K5):NEXT:RETURN 

758 FOR H5=39 TO 42 STEP2 :SET<16S,H5>:SET<112,H5>:HEXT:RETURN 

768 F0RH5=32T034 : SET C185v H5) : SET (117, H5) : NEXT : F0RH5=165T0117 : SET 

<H5,32):SETCH5,34):NEXT 

778 FOR H5=117TO123:SET<H5,B):NEXT:F0RH5=J3T08STEP-l:Sa(124^ 

):NEXT:FQRH5=1 TO i?:Hfc=H6+2 

788 PRINTS "HUNG ! !"; :60SUB888 ;PRINT8H6- " *; :60SUB8 

88 ;fCXT H5 

798 FOR N5=l TO 688:NEXT :RETURH 

888 FORX=t TO 48 '.NEXT X:REWRN 

818 REM 

828 REM DftTfl LINES HflY BE CHfWGEO TO NEH HORDS. 

838 CLEAR 288 :DEFSTR S : OEFINT I,H : 60SUB3448 : DIM S6(38):DI 

It 1(258) 

848 PRINT&m "SOLITARY HflNGtWT 

845 RERDS*:IF S*<>"XXX"THEN Xfl=Xft+l:G0TO845 

85BPOKE16553,255 

2488 DRTft RUSSELL'S COMPUTER, DIAMOND RI HG, PRESI DEHT IWtt CARTER 

,RfiDIOSHflCK,GOLF 

2418 DfiTA QUEEN. QO aV fl KITE, MASTERMIND, HAHRII FIVE-0,CfiLENDRR, 

SPftCE SHIP, COMPUTER 

2428 DflfTfi HGRDS,I LOVE YOU, HEEKDfiY, INSTANT REPLftY, KflLEIDOSCOPE, S 

EflSON,CORRESPOM)ENT 

2588 DRTft FIRE TGHER, VIDEO DISPLAY, VICE-PRESIDENT MOHDflLL HELLO, 

DRYIDATO STEVEN, STARS 

2518 DRTft EMERGENCY, HANGMAN GRME,SEE SPOT RUN, TRS-88, LET'S GET fl 

PIZZA, CLOCK, CATFISH 

2528 DflfTfi ZUCCHINI, KILOMETERS, flLWtfeET, SHRRK, EXCflVATION, CURRENCY 
, HONEYSUCKLE, JAGUAR 
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2688 DATA FOOTBALL LUNAR ORBIT, TELEPHONE, STARSKY AND HUTCH, BUCK 

AND WHITE/ BASKETBALL 

2618 DATA GUESS WO?, TAPE RECORDER, eULLSEVB MERRV CH?ISTHAS,ORAN 
GE JUICE,MOTHER AND DADDV 

2628 DRTR KIMBALL ORGAN, HORK AM) NINDY, TONIGHT SHOW, DOBERHAN PIN 
SCHER, MAILMAN, DC-18 AIRPLANE 

2638 DATA FANTASY ISLfW, EDEN, HOHKEV, PCMORV BOARDS, APPLE COMPUTE 
R, SOFTWARE, BIG BIRD 

2648 DATA SOFTSIDE, FORTRAN, LINE PRINTER, JACK AND JILL, DISNEYLAND 
, INDIANA, INPUT OUTPUT 

2638 DATA OVERTIME, EXPANSION INTERFACE, SESAME STREET, INFANT, ADD 
WORDS § LINE 2788 
299S DATA XXX 

3888 RESTORE:X=RND(XR): 18=18+1: IF I8>280 TON 3468 ELSE IF ICX)= 
1THFJG8B0 aSE I(XM:FOR 19=1 TO X: READ S2: 18=8 
3810 NEXT 19 
3828 S2=S2+" • 

3038 13 =832:H4=i5368:HS=648:H=0:H3=8:H7=128 
3048 FOR 12 = 1 TO 26 : S6<12> = "-" : NEXT 
3850 GQSU83448 : F1=0: HI =-1 
3068 PRINT8128, "* HANGMAN * GUESS THE WORD. " 
3870 PRINTS514, "TINE LEFT 128 SEC. "; :FC*X=0 TQ92:SET<X,22):S 
ET(X,27):NEXT:F0R X=23TG26:SET<0,X>:SET<92,X):N£XT 
3880 S3=" ' : GOTO 3158 
3096 REM COME BACK 

3188 Fi=Fl+l : IF Fl=26 Fl=8 : H?=H7-1 : IF H7=-i THEN 3488 
3118PRINT8536 j H7j 
3128 S3=INKEY* 
3138 IFS3= B " THEN 3898 
3148 IF Fl=l THEN 3898 
3158 REN TEST 

3160 F=l ; FOR 12 = 1 TO LEN<S2) 
3178 IF MID*<S2,I2,1)=S3 THEN S€<12> = S3 : F=2 
3180 NEXT 
3198 IF F=l THEN PRINTM3,53i : IF S3 O S8 THEN 13=13+4 

: S8=S3 
3280 IF F=l H=H+1;GOSUB3450 
3218 IF F=2 H1=H1+1 
3228 PRINTte56,Hti "HITS",Hi "MISSES'j 
3238 REM P LOOP 
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3249 5?= SB :F0R 12 = 1 TO LEN<S2> : S7=S?+S6<I2) : NEXT 

: PRINTERS?; 

3259 IF S?=S2 THEN 3286 

3269 IFH>=? THEN 3370 

3278 QOTO2098 

3286 REM CORK 

3296 G0SUB3448 

3368 IM(H:PRIHTW2fc "CORRECT M ! ' 

3318 PRM825& "YOU HEEDED M2e-H7; s SECONDS " 

3326 PRIHT&384, S2 

3336 PRIKTIS12, "VOL! TO ", H> ' MISSES. . . " 

3348 PRINTS648, "GfiHE TOTfiLS:":PRINT" 

# CORRECT MRrPWHT-l HWG M8:PRINT"# TIttE 

3336 FOR 12=1 TO 4008:NEXT 

3366 G0T03868 

3378 FOR X=iT0?8e:MEXT 

3388 G0SU63448 

3398 IB=I8+l:PRIKTW28i"Hl«G !!!!!!!!':G0T033i8 

3488 REN TINE 

2416 FOR O=lTO7-H3:G0SUB3458 :ttXT:FQRe=l TO 2666 :NEXT 

3428 G0SUB3448 

3438 IC=IC+i;PRIKTW.3«, "OUT OF THt !.'! • : fiGT033i8 

3440 OS : PRIMT 0**<23) :RETURH 

3458GOT0666 

3468 I8=8:F0R MT058:IOO=8:*XT:G0T038W 
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Correction For TANK, July, 1979 SoftSide 

Our thanks to Bruce and Joy Blevinsof Urbana, Ohio for the 
following correction and usefuf addition to the game of TANK 
by James Garon: 

Correction: 

Line 71jer should read: IF P-812 IF P-876 IF P-8«eriF P-26<nF 
P-324 JF P-328 IF P > 191 IF P + 8-64*INT((P+8}/64) 0=60' 

Addition: 

To keep the tanks from running over each other, and add the 
tactics of blocking the other tank's path, add Line 626: TA = 
ABS{P+0-Q-V): IFTA< 8 OR TA = 6# OR TA = 64 OR 
TA = 68 THEN Q=ftV=0. 
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ADVANCED 

Personal 
Finance 



by Lance Micklus 

First, we took the tape version of PERSONAL FINANCE and ! • 
converted it for use under DOS. Then many new features weie v 
added such as self -verifying files which protect themselves from : 
most common hardware faults, and the BUDGET program :\£. 
which collects data - automatically from the CHECKING : 
program, and manually from the keyboard. Advanced Personal 
Finance will produce a 30-page report that gives you the total 
picture of your financial posture. To complete the package, a 
SAVINGS account program lets you use the one savings account i 
as if it were ten individual accounts. This way you can set a : ' 
certain amount of money aside for Christmas, save an additional \ : 
amount for a rainy day, and keep track of how much is for what. 
Also included are programs to convert the data file on tape 
from the regular personal finance program to disk. 

On a 32K disk system, the package will handle about 200/,- 
checks per month and 900 checks per year. There are 33 "i 
different account names which are set up with DATA statements,', 
in each program on the disk. ■.',- 

The minimum system required is 32 K Disk BASIC with one 
drive. The addition of a line printer, a second drive, and * 
upper/lower case video display all enhance the features. A" 
second disk (not supplied) is required to store your data, as the ; 
program disk is very full. Price, $24.95. , » 

Reduced Featured Tape Edition $9.95. 

-...■"'■ '.. / V ■;,.'." ,-■■'. ".■■'" 

' i .- :« ■ ■• ' - 

TUC TRJ-0O Software Endlong* 

V ,Wk ^IW h BRIAR CUFF Oflrvf f*l L.FORD, Hg W MAJWMM1RE 0$K& 
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ADVENTURE 



r 
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What Is A CompuNovel? 

To find the answer, take your seat at the keyboard of a micro- 
computer and run one of these programs. You will enter a world 
of choices, booby traps, dangers, secrets, puzzles, surprises. 
You will be part novelist, part character. 

Far more than playing a game, you will be playing a role -- 
and your individual characteristics help determine the outcome. 
The computer plays a role, too, taking on human characteristics. 
It is in turn amusing, coy, sarcastic, helpful or inscrutable. 

WARNING: You'd better have plenty of time for this activity! 
You'll return again and again to your magical world for more 
fascinating adventures. The starting point is the only thing that 
remains the same; from there your course is determined by the 
choices you make and (sometimes) the time it takes you to make 
them. 

T«£ TRI-SO Software ixchanoe 

■m^B 1?BHIAR CLIFF DRIVE MILFORD. NEW HAMPSHIRE 03OSS 



etw?l» 



MOTE: 

During normal business hours, 
programmers will ONLY be available from 
9-10 a.m. and 5-6 p.m. 

New HOTLINE Hours 

Tuesday nights - 7-10 p.m. (EDT) 




Introducing the newest accessory 
for your TRS-801 

THE LIGHT ?EN 



An entire new world of software 

applications now ready and waiting 

for the touch of your hand. 

Available now for only $19.95 



T<£ TRS-0O Software Exchange 

|M IT im AH ft IFF OfiPV£ M1lfO*lO.J*EW n*MPSMHW UK 
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Histosraph/Sccittersrcim 



by Gary S. Breschini 



Histograph constructs a five- to 
fourteen-element bar graph. 
User specifies the range of data 
and number of bars in graph; 
program sets upper and lower 
response limits for each bar 
element. Graph composed in 
"real time" as data is entered. 



Seattergram plots XY infor- 
mation for visual analysis of 
trends. Extensive documen- 
tation. 

Level It, 16K $9.95 

THJ-80 Software Exchange 

1/ Bripr tS.il EM** MJllOJrJ. Hew Hjmp*li|ie P3D5S 




DISK DRIVES 
Now in Stock 



The TRS-80 Software Exchange is pleased to 
offer single and dual Percom Disk Drives for 
your TRS-80. These are reliable, high quality 
drives, fully compatible with the TRS-80 and 
Radio Shack s drives. 
Enjoy these advantages: 

• Fast access time 

• 110K/40 tracks vs. Radio 
Shack's 89K/35 tracks 

• Lower cost — save $100 over 
comparable units 

• Available NOW! 

Single Drive $399.00 
Dual Drive $799.00 

Cable (required] - $29.95 

NOTE: All disks require TRSDOS software, available only from Radio Shack. 




"•is 



TRI-SO Software Exchange 

17 BRIAR CUFF DRIVE 
MILFORD, NEW HAMPSHIRE 03055 
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fYAAMAAS 




The familiar little game 
gift 5 hops and restau- a 
computer. You have 
by removing one. a 
over another one 
piece is removed A * 
The object is 
pyramid. It * 



you find everywhere in 
rants now comes to the 
15 pyramids. You start 

a Then, you jump one 

and each jumped 

a from the board. 

to end with one 
a a sounds easy, 



and indeed the concept is simple. Gaining the objective 
is not, and can provide quite a challenge! 
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* SOFTSIDE PRESENTS * 

* PVRflMIDS * 

* COPYRIGHT FEE 1979 * 

* BV LEWIS E. GARRISON * 

*************** 

26 CLS;PRINTe?5 J 'PYRfflIK":PRM:INPUT ,, l>0 YOU HflNT INSTRUCTIONS 

(YES/NO)"; A* 

38 as : IF LEF7*<A*,1) ="H" THEN 136 

46 DEFINTR-Z 

56 PRINT:PRINT"IN THIS PVRAHID GflHE, ALi 15 PYRflHIDS HE ON AT T 

* eEGIHNIMG" 

66 PRINT :PRIRT 8 OF THE GH€, TO START, REMOVE ANY Oft PYRAMID. TH 

EN JUT 

79 print :pr1nt"h€ pyramid over another into ah empty spree and 

the jumped- 

88 print :print"pyrfimid will 8e removed. continue until you have 

no jumps left" 

99 print;print"the object is to leave only owe pyramid on the bo 

fiRD." 

m PRINT:PRINT "TVPE 99 TO RESTART, OR 999 TO QUIT" 

U9 PRINT:PRINT:PRINT°G0OD LUCK!!!!" 

129 INPUTPRESS ENTER TO START'; B* 

139 CI^:{m®948:Q)SUB95e:Q()SlB966:G0SllB976:GOSU^86:G0SUB999:G0 

SU81906 : GOSUB1916 ; G05UB1828 ; 6OSUB1038 : GQSUB1&46 : GOSUB1658 rGOSUBl 

&69:Q0SUB1979:G0SUB188e;130SUB169e 

149 PRINT6164, "REMOVE"; : INPUT R 

158 IF (R<i) OR <R>15> THEN 198 

168 GW G0SUB776, 786, 796, m 819, 828, 839, 848, 856, 866, 878, 886, 896 

,966,918,926 

178 PRINTW64,STRING*C28," ">; :PRINT8164,"FR0M"; 

188 IfFU7ft:PRINT6i73, a T0VIi* 5 UT B:FRINT*17Br "i 

199 IF <A=99) OR CB=99) THEN 136 

269 IF(A=999) OR <B=999) THEN 1116 

218 ONfl GOT0226, 236, 249, 259, 268, 276, 286, 296- 366, 319, 328, 338, 349, 

356,366 

228 IF<B=4>AND N0TCP0INT(36,25))ANDCP0INT(45,16))0R(B=6)AM> NOT( 

P0INT(77,25»AHD (POINK67, 16»THEN490ELSE3?6 

239 IF(8=7)AND N0T(POINT<26, 34) )flNDCP0INT<35, 25»OR<B=9>AND NQTC 

POINT(68,34»AM)(POINT(59,25))THEN429ELSB?0 
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246 IF(B=8)flND H0T<POINT(46,24»fttCKPOIHT<55,25»0R(B=i8>fiND HOT 

(P0INK85^4) )fiND(POINT ( 79, 25 »THEN44^LSB?0 

256 IF(B=i>F&£i f»T(P0INT(56,7))flHD(POIKTC45 J 16))a?(B=6)fflD M0T<P 

OINK78, 25»ftND(PGINK59, 25>)0R(B=il)fll® N0TCP0IHTC16, 43»fiND(PO 

MC2&, 24»0R(B=13)flND HGT<P01HT(5a 43) ^(FQINTW, 34))THEN468 

ELSE370 

m IF<B=i2)RND fBT(PGINT<3? J 43»WID(P0IHT<47,24»(^(B=14)^fi) NO 

TCPGINT<8& 43:OMKPQIftT<6&34))THEJi500&SE2?0 

278 IF(B=i)flND H0T(POINT(56..7»l : B«)(R)iNT(g7,16»^(e=4)fiND h»T<P 

0IMT<2f,25))fif»<P0INT<59 J 25))OR(B=13)flHDNOT<F'0IHTC58,4i)>f!W){PG 

IHT<6a24))(5R<E=15)f»H0TCP0IffT(;93,43))fifCi(F0IfiT<89 ; 34>)THEffi28 

ELSB78 

28@ IFCS=2>Wff> NOT<POINT(45,i6))RND(ftINT<:ft,25))0R<B=9>RND M0T< 

P0INT(S7 ) 24)>aND<P0IflTC47, 34.0 THEN56@£LSO?6 

298 IF<B=3)fiND N0TCP0M<6M6>>TO(H)!NT<53,25)>QR<B=1@)RND ROT 

(PG1KKS9. 24) ) fMXPOINKfigj 34»Tt£N580ELSK76 

300 IF(B=2)flND N0T(P0I»T<45 J iS»ftM><P0If)TC59,25)>0R(e=?)»ft NOTC 

P0INK2& 34))flND(P0INT(47, 34))T>£H606B.SB7e 

310 IF<B=3)flND K0T(POINT(67,16))W(POIffT(79^»£)R(B=8)TO NOTC 

PGIN7C46, 34»RND(POINK68, 34)>MH628F±5E3?8 

328 IF(B=4)fiHD HOKPOINT (3t, 25) >flHD<POIHT<26, 34> )0Rt8=13)FWD HOT 

(POIFfT<58,43)>flHD<POINT(37,43)iTt£N648ELSE370 

338 IF(&=5)»» N0T<FmNT(5?,25))W(Ft>INT(47,34>)QR<B=14>RH) NOT 

(POIHT(79,43»flND(POI(JT(58,43»Tt£Ne68ELSE370 

346 IF<B=4)fitf) HOT(POINT(36,25»flND(POINT(47,34»0R(e=6)SND l©T< 

POINTC77,25»»iD<POIHT<68 ) 34»0R(:B=ll>»»HOT(P0IHT(16 J 43»fi«><P 

OINT<37,43))0R<M5)fl«DNOT<P0INK99,43»flND(POI«T(?9>43)>THEH68 

8ELSE370 

358 IF(B=5)fM) NOKF1)Itff<57,25))flND<POMT<S8,34))0R(B=i2)fiN{) NOT 

<POINT(37,43))flM)(POIHT(58 J 43))T>ef720ELS£378 

360 IF<B=6)fiND HOT<P0INT(77 J 25»fiHDCPOINT(89,34»CR(B=i3>flt«> HOT 

<PGIH7<58,42))flND(P0INK79,43>)THEH749ELSE376 

370 PRINMR'UlEGflL MOVE'; ;F0RT=iT05e8:NEXTT 

388 PRINT8164, " ":GOTO170 

398 REM MOVES 

468 IFB=4THEHGOSUB778:60SUB978:GOSU6788:GOT0178 

418 IF8=€TfCNGOSUB770:GOSUB998:GOSUe790:GOTO17e 

428 IFB=7THENGOSye780:GOSU81800:GOSUB888:GOTO178 

430 IF8^TtENGOSUe7&8:GOSUBlB20:GOSUB818;a)TOi70 

448 IF8=8THEHGOSU8?90:GOSUB1610:GOSUB810:GOTO178 
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458 IFB=10THEMQO6lJB79e : GOSUeieSd : Q0SUB82e : QOTOITB 

466 IFB=lTtCMGOSUB88e:GOSUB94e:GOSUB788:Q0T017a 
478 IFB=6Tt£NGOSUB88e:6O5UB99e:(mJB310:GOTQ17e 
488 IFB=liTHEH6OSUB808:GO5UB1040:GOSUB830:GQTOl7e 
436 IFB=13TlCHGOaJB8e0 : GOSUB10Ge : G0SUB84e : QOTftLTe 

588 IFB=12THEHGOSUB818:GOSUei850:(jOSUe848:GOTO178 
518 IFB=14'f}CN6OSUB8ie:K»a)810?e;GOSU885e:G()TO17e 
528 IFB=m€NGOSUES28:GOSUB946:GOSUB79e:QOTO170 
538 IFB=4Tt£NGOSUB828:GOSUB370:6O5UB8i8:GOTO178 
548 IFB=i2Tt£NG0SlB828:eOSUB186e:G0SUB858:G0TO178 
558 IFB=15TJCNf30SUB828:G(Kl«l&38;fi(BUB868:G0TCH78 
568 IFB=2THENG0SUee38:G0SUB958:60SUB888;G0T(J176 
578 IFB=9Tl£«GOSUB83e:6OSUBl028:GOSUe84e:GOroi70 

5% IFB=3THENGOSUB84e:GOSUB9^:GCaJB8i6:GOTO170 
598 IFB=18THENGOSUB840:6OSUB1038:GO£UB85e:GOTOi7e 
688 IFB=2THENGOSUB858:GO5UB95e:fiOSUB810:6OTO170 
618 IFB=7THENGOSUe858:8OSUei898;GOaJ8840:GOTt)170 
628 IFB=3TtCNGOSUe86e:GOSUB960:GOSUe828:QOTO176 
638 IF6=8Tf©BOSUe868:GCSUei818:eOSlJK50:COTO170 
640 IFfi=4THEHGOSUB878:GOaJB97e:O)aB830:GOTQ178 
658 IFB=OTHENGOSUB870:GOSUB1868:GOSU8880:faTO178 
€68 IFB=5THEHKJ5UB888:GOSUB988:GOSUGB40:GOTO17e 
670 IF^14"riCHG0ajB^ : GOS0B187e : G0SUB896 : 
680 IFB=4TfCHG0SUB89S ; GOSUB970 ; GQSUB&40 ; 
630 ire*ThO«»SUB898:G<ftlB998:GGSUBe58:(8ra?8 
788 IFB=11THEMGOSLE830:GO£UB1848:GOSUB880:GOTO170 
718 IFB=15THENQ0SUe83B : GOSUB108e ; GOSU8908 : GOTO170 
720 IFB=5TJ£NGOSUB908:GOSUB380:GDSUB850:GOTO17e 

738 IFB=12T»»BOSt«9e0:KSlffil85e:(BSUB89e:GOTO178 

748 IFB=eTHENGOSUB918:GOSlJB998:GOSU886e:GOTO170 

758 IFB=13THENeOSUB9ie:GOSUB1068:GOSUB9e8:GOTOl?8 

768 EM) 

?78RF.SETC56,4):F0RX=55T057:RESETCS<,5):HEXTX;F0RX=54T058:R£SET(X 

, 6) :f£XTX:F0RX=53T059:RESETa 7>:fEXTX:R£TlKN 

730 RE5EK4& 13) : FGRX=45T047 : HESETOS, 14) : NEXTX ■. F0RX=44T048 :RESET 

(X.15):HDnX:FtWW3TO43:RESET(X,16):IBm:REldW 

798 RESETC67, 13) : FORX=66T068 : RESETa 14) : NEXTX :F0RX=65iG69 : RESET 

CX,15) :«XTX:FORX=64TO70:RESETa 16) ;fEXTX: RETURN 

808 RESETC3& 22) : F0RX=35TO37:RESETa 23>:NEKTX;F0RX=34T033 : RESET 

a24):fCXTK:F0RX=33T039:RESET(!<,25):OTX:RETURK 
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810 RESEK57, 22) :F0RX=56T058:RESEKX, 23) : NEXTX : F0RX=55T059 : RESET 

<X, 24) : NEXTX :FQRX=54T06e:RESFJ(X, 25) :N£XTX:RETURN 

820 RESEKTR, 22) :FGRX=77T079:RESETa 23) : NEXTX :FCRX=?£TQ80: RESET 

a 24) : NEXTX :F0RX=75T081:RESEKX, 25) : NEXTX: RETURN 

836 RESEK26, 31) : FQRX=25TG27 : RESEKX, 32) : NEXTX : F0RX=24TO28 : RESET 

<X,33) :MEXTX:FGRX=23T02S:R£SEKX,34) :MEXTX:«ETl«H 

840RES£T(4?,31):FORX=46TO48:RESET(X,32):NEXTX;FORX=45TO49:RESET 

<X, 33) :NEXTX:FGRXM4TG58:RE5EKX, 34) :NEXTX:RETURH 

856 RESETS, 31) : FQRX=67T06S: RESEKX, 32) ; NEXTX :FORX=«TO70: RESET 

<X J 33):HDCTX:FaW^5T071:R£SET<X,34):HEXTX:R£Tl!RH' 

860 RESEK83, 3i).fGRX=88TG90:RESEKX, 32) : NEXTX :FGRX=8?T0S1: RESET 

<X, 33) :NEXTX:F0RX=8ST092:RESET<X, 34) :NEXTX:fETU9( 

87eRfSET(16,49):FORX=15T017:RESET(X,41):NEXTX:FORX=14T018:RESET 

(X. 42) : NEXTX : FQRX=13TQ19 : RESEKX, 43) :NEXTX : RETURN 

888 RESEK37, 40) :F0RX=36T038:RESF_KX, 41) : NEXTX :F0RX=35T039: RESET 

<X,42):NEXTX:FQRX=34TQ48:RESCT<X,43):NEXTX:RETWI 

890 RESETC58, 46) : FQRX=57T059 : RESETOO 41) : NEXTX : F0RX=56TO68 : RESET 

<X.42):NEXra:F0RX=5M(Kl:f£S£T(X.43):NEXTX:8£TURN 

908 RESET(79,40):FQRX=78TOBe:l«SET(X,41):«EXTX:FQRX=77TO8i:RESET 

(Xi42):NEm:FORX=7CT082:RESET(X,43):N£XTX:RETURK 

910l!ESETa00,40):FORX^ra01:IiESET(X,41):N£XTX:FORX=98TM02:RE 

SET(X,42):NEXTX:F0RX=97T0183.RESaa43):NEXT::RETURN 

929 ETC 

938 REM BUILD PYRffUD 

948 S£K56,4>:R)ftX=55T057:SE7(X/5):NEXT:F0ftX==54TO58:SET(X,6):NEX 

TX:F0RX=53TOTO:SET(X,7);NEm:FORJ{=52TO68;SET(X,8>:»£XTX:RETlJRN 

950SET<46,13):FORX=45TO47:SET(X,14):NEXTX:FORX=44TO48:SETai5) 

:NEXTX : FCRXN3T049: SEKX, 16) : NEXTX : FORXM2TO50: SEKX, 17) : NEXTX : R 

EHJRN 

960SET(67,13):FORX=66TO68:SET(X,14):NEXTX:FORX=65TO69:SETC!{,i5) 

: NEXTX: FORX=64TO70 : SEKX, 16) : NEXTX : F0RX=63TC71 : SEKX, 17) : NEXTX : R 

ETURN 

970SET(36,22):FQRX=35TO37:SET(X,23):NEXTX:FORX=34TO38:SET(Jt,24) 

: NEXTX: FORX=33T039 ; SEKX, 25) : NEXTX : FORX=32TO40 : SEKX 26) : NEXTX: R 

ETURN 

988 SEK57, 22) :FORX*56T058; SEKX, 23) : NEXTX :F0RX=55T059: SEKX, 24) 

: NEXTX :FORX=54TO60: SEKX, 25) :NEXTX:F0RX=53TC6i:SEKX, 26) :NEXTX:R 

ETURN 

998SET(78,22):FORX=77T079:SET(X,23):HEXTX:FORX=76T08B:SETa24) 



41 



— ' 



: hextx : f0rx=75to81 : setcx, 255 : nextx : f0rx=?4t082 : set of, 26) : nextx : r 

eturn 

1888 setc26, 31 ) : fgrx=25t027 : set cx, 32) : nextx : fokx=24t028 : setcx, 33 

) : nextx : f0rx=22t029 : setcx, 34) : nextx ; f0rx=22t038 : setcx, 35) : nextx : 

RETURN 

1818 SET< 47, 31) : F0RX=46TG4e : SET<X, 32) : HEXTX: FGRX=45T049 ; SET (X, 33 

) : NEXTX : F0RX=44TO58 : SETCX, 34 ) : NEXTX : F0RX=43T051 : SETCX, 35) : NEXTX : 

RETURN 

1826 SET (68, 31) : FORX=67T069 ; SETCX, 32) : NEXTX ; FORX=6£TO70 : SET (X, S3 

) : NEXTX : FORX=65TQ7i : SETCX, 34) : NEXTX : F0RX=64T072 : SETCX, 35) : NEXTX : 

RETURN 

1836 SETC89, 31) :FQRX=88TG98: SETCX, 32) : NEXTX : F0RX=87TQ91 : SETCX, 33 

) : HEXTX : F0RX=86T092 : SET (X, 34) : NEXTX : FORX=85T093 ; SET (X, 35) : NEXTX : 

RETURN 

1948 SET(16,40):FORX=15TO17:SETCX,41):NEXTX:FORX=14Taie:SETCX,42 

) : NEXTX : FORX=i3T019 : SET CX, 43 > : NEXTX : F0RJH2TG28 : SET (X, 44) : NEXTX : 

RETURN 

1858 SET (37, 48) :F0RX=36T03S: SETCX, 41) : NEXTX: FQRX=35T039: SETCX, 42 

): NEXTX ;F0RX=34T048; SET (X, 43): NEXTX ;F0RX=33T041;SETCX, 44): NEXTX: 

RETURN 

1868 SETC58, 46) :FQRX=57T059: SETCX, 41) : NEXTX: FCRX=56T068: SETCX, 42 

) : NEXTX :FGRX=55T«1 :SET(X, 43): NEXTX :F0RX=54T062: SETCX, 44) : NEXTX: 

RETURN 

1878 SETC73, 48) : F0RX=?8T088 : SETCX, 41) : NEXTX : FQRX=??T081 : SETCX, 42 

) : NEXTX : F0RX=?6TD32 .SETCX, 42) : NEXTX : F0RX=75T883 : SETCX, 44) : NEXTX ; 

RETURN 

1838 SETC188, 48>:F0RX=99T0181:SETCX, 41) : NEXTX :F0RX=98T&182: SETCX 

, 42) : NEXTX : FORX=97TO103 : SET (X, 43) : HEXTX : FORX=9CTM0* : SETCX, 44) : H 

EXTX: RETURN 

1098PRINTei59, u l":F^INT?346, ,, 2 ,, :PRINT^355,"3":FRINTe533, ,, 4":PRI 

NT8543, "5" :PRIHTI554, "6° :PRINTI?720, "7" :PRINTg738, "8" 

1188 mmmi, "^PRINT^SL "IS^FRINT^/'llVPRINTf^i?, "12": 

PRINTS, n 13" :PR1NT@93S, "14" :PRMS949, "15" :RETURN 

1110 CLS: PRINT: PRINT "THRNKS FOR PLfiVING — BYE,BVE" 
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Space Bottles 



By Level IV 





HAVE SPASESHIP - 

j-M r-i . \ A WH.L TRAVEL 

Lj ..L.,„.L . . A__ mu'n a galactic adveatirrw, an 
. 1 .... 1 , .,, 1 —^ — \_^«id hand at calculated rtsta, 

JU V. ;■,'. \ .■. tfigpterttig far corners of ayait uni- 

>vverse containing, siiens at every 

Vv'^'' ■ description • and ihsy as» tfte 

bounty you hunt. In defease of Uie 

empire, you cooHy ^liyqiirseH 

agarnst superior forces, with brll- 

iliance and daring, but with fjfie 

added knowledge that every 

enemy ship you down means your 

coffers swell - and you are also a 

\ businessman! 

This superb game features 1 hi 

levels of play; fast, machine 

guage graphics; real-time ti 

"" and "smart" enemy shipsth; 

move and shoot! Goodfel^iitrn^ 

and watch out for theradiatiofr 

belts! Available on Level!!, 18K 

Tape or 32K Disk; 

Tape -$14.95 

— ~ - fUrifr.jStM og 




Tf £ TRI-80 SoHutetc ChcImac 

W l-'S'i* Ctrft t>rrrt WiJTftn],«*»Hifli»pririiw 0»4S 




The newest version of TRS-80's first animated 
graphics game - Android NIM - now with more 
animation and sound! 

Level II, I6K - $14.95 



Snalhe 



Here is a computerized 
reptilian version of 21 
complete with arrogant 
snakes and appropriate 
sound. 

Level 



16K 



$14.95 



Two in one: Game of 
Life, at an astounding 
100 generations a min- 
ute, plus Battle of Life 
with animated creatures 
and sound. 

Level IL16K $14.95 



» 



Cubes gives you the solution to Instant 
Insanity®*, a numbered block puzzle. Drive 
your computer nuts trying to figure how to 
arrange the 4 blocks on your screens. Each side 
shows four different numbers. Level II, I6K 

* instant Insanity® is a Parker $9.95 

Brothers registered tradamarti 

TfETRS-OO Software Exchange 

* 17 BRIAR CLIFF DRIVE MILFORD, NEW HAMPSHIRE 03055 
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THE 

MCAN 

Checkers Machine 



nil-Mr- ii i 



:,:.:■-.; ^U.;. : ■•;, ; ■* 




Our resident wizard has done it again! Designed in FORTRAN, run 
as machine language, this program turns your TRS-80 into an 
unbelievably wicked checker player! Four levels ol play; at the 
most difficult, the machine may take ten minutes per move, as it 
attempts to assess all possibilities. MEAN CHECKERS MACHINE 
is to checkers what SARGON is to chess. (Level 4 is an exercise in 
humility!) 

Level II, 16k ' $19.95 

Disk $24.95 

|f£TRS-80 Software Exchange 

17 9 1 1- CJ:N rjriv* Miltord-. M«w rtftntpshlf0D3Q55 




Gefa 

LOAD 

of Mi*/ 



If you have less 

time at the keyboard than 

you would like to, and have been missing 

out on some of SoftSide's feature programs, 

We've got a solution ! 



_55ft5Fa 



TH 



e. 



Your BASIC software magazine for TRS-80 

On Cassettes 

That's right! Now, all out monthly programs will 
be available on audio cassettes, for only about & 
dollar apiece - SATISFACTION GUARANTEED. 



r 



The price for 6 months of cassettes plus 6 
months of SoftSide magazine is only $38.00. 
If you're already a subscriber to the 
magazine, you can enroll for the cassettes 
only, at a cost of $30.00 for 6 months. 
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So, if you want to combine the best programming 
available (or the TRS-80 with the convenience of 
pre-recorded program cassettes, send your order 
to SoftSide today, and leave the coding 




r 



j^a 



e" your BASIC software magazine" 
■ POBo<6» Millord. NHOJOvi 



'^ 



ALL RIGHT! Enroll me for b months of 
SoftSide on cassette. My full payment is 
enclosed as indicated below; 

□ New Subscriber - $38.00 □ Subscriber - $30.00 
□ Check □Money Order 

□ Charge to Master Charge/VISA 



VISA 



Q 



Exp. date_ 
Signature- 

NAME 

ADDRESS 
CITY, STATE. 



Interbank#. 



ZIP 






J 
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TREASURE DUNGEON Continued from page 23 

less, then the monster is defeated and the program 

goes to the Treasure section. If the player defense 

strength goes to 3 or less, then the player is warned 

that he should escape. If he continues to fight, if may 

-toon ,rmrr fall to and he is dead. 
7288 FIGHT 

7283 TfcTH+1 

7284 eL*=CHR$G8)+CHR*<13> : PRINT G 57fc CU+CL*+CL$+CU+a* 
7265 PRINTS 576. "THE MONSTER STRIKES fiT VOU . . . . 

7218 MNWCIrD-PD: IF MP<2 THEN HP=2 

7215 FOR X=l TO 388: NEXT X 

7228 PX=RMHKP)-1: IF PX58 THEN PRINT'THE MONSTER HITS YOU": as 

E PRINT'THE MONSTER MISSES" 

7239 IF PX>8 THEN Pfi=Pfl-PX: PD=PD-PX 

7248 IF PCK=6 THEN PRINT H V0U ARE KILLED !": END 

7258 F0RX=1T0488:NEXT: PRlNT n V0U STRIKE FIT THE MONSTER ...." 

7255 FOR X=l TO 388; NEXT 

7268 PM=Pfi-MD(lH>: IF PrK2 THEN PK=2 

7278 MX=RNfXFtt>-i: IF «X>8 THEN PRINT"V0U WOUND THE MONSTER": a 

SE FRINT'fl HISS. . . " 

7288 IF nX>8 THEN nfKHIMfHIrlHK: MD<IM)=l1D(IM>-m 

7298 IF MXIMX=8 THEN GOTO 7488' DEFEATED 

7295 IF PD<=3 PR1HT"V0U fiRE SEVERRY HOUNDED. BETTER RUN ! 

7388 GOTO 7848 

73» ' 

ROUTINE: TREASURE 

LINE: 7400-7490 

PURPOSE: Allocation of treasure. 

PROCESS: If the monster is defeated and has a treasure, then the 

value of that treasure is given to the player. Where IM 
is the monster number, IT = MT(IM) gives the 
associated treasure number, and TD$(IT) is the 
treasure description and TV(tT) is its value. Control is 
returned to the main Command section . 

7406 'TREASURE 
7462 FOR X=l TO 568 : NEXT 
7483 RH(1R>=0: MK=MK+1: GGSUS 6898 
7485 PRINT? 512, "THE NOHSTER IS DEFERTED !": PRINT 
7418 IF fmi8>=B PRINT' VOU FIND MO TREASURE": GOTO 7476 
7428 PRINT"THER£ IS ft TREASURE !• 
7438 IT=«TCIH> 
7448 PRINT TW(IT) 
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7459 PT=PT+TV<n> ^ 

7455 PRINT'IT IS HBmPttVtmi-' 'GOLD PIECES" . 

?468m(in)=e 

7478 GQSU8 5888 
7488 QOSUe 6808 
7496 RETURN 
8999 ' 

ROUTINE: READ ADVENTURE DATA 

LINE: 9000-9290 

PURPOSE: Getting the descriptive dungeon data. 

PROCESS: The dungeon data is stored tn data statements which 

are read at the start of the program and assigned to 
array variables. This gives a much faster response than 
re-reading the data statements each time additional 
information is needed, and doesn't take up much more 
memory space because Level II BASIC establishes 
string variable pointers which make use of the data 
lines themselvess. The first items read are the general 
description lines AD$(1-4) and the number of rooms, 
NR; monsters, NM; and treasures, NT. These 
variables are then used to dimension the dungeon 
description variables which are filled by subsequent 
RE A D stateme nts , 

seee ' adventure datr 

3816 POKE 16553.255 

9826 RESTORE 

9846 READ fi&t(l>,nt>$(2),PD$G).flO$<4) ( HR J NH,NT 

9856 DIM 8M(NR)j RP$(NR>4), RFKNR) 

9868 FOR 1=1 TO NR 

9876 READ Ift RDt< IR>, RP*< IR, 1>, RP*< IR, 2>, Rf#< IR> 2>, RP*< Ht 4>, R 

rttIR> 

9888 NEXT I 

9116 DIM Htt<Mt>, Hfl(NH>, MD<NH), NT<IM> 
3126 FOR 1=1 TO Nh 

3138 REM) I&K*UH)jHrKI!l)>HDUH).KKin> 

9146 NEXT I 

3218 DIM TW<NT>, TV(NT> 

3228 FOR 1=1 TO NT 

3238 READ IT, TC*<IT>,TV(IT) 

9248 NEXT 

9298 RETURN 

9299 ' 
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ROUTINE: ROOM DATA 

LINE: 9400-9475 

PURPOSE: Dungeon room descriptions. 

PROCESS: The format for the room data is: room number IR, room 

description RD$(1R), room pointers RP$(IR,1-4), and 
resident monster RMtIR), This is fairly seH 
explanatory. The room pointers as mentioned before 
are string variables which point to adjacent rooms in 
clockwise order (N, E, S, W). The first part of each 
variable gives the adjacent room number (if any) in 
that direction, and the final letter gives the 
wall/passage type key. If there is no number, than zero 
is implied and movement is not permitted in that 
direction. 

9318 DATA "ADVENTURE i 1" 

3312 DATA PREPARE TO RISK VOUR LIFE FOR THERE ARE HANV DANGERS H 

ERE. 

3314 DATA ORCS AND OTHER BONSTERS HAVE BEEN REPORTED. 

3315 WITH BEHfiRE ESPECIALLY THE FIERCE HINGTAUR . . . 
9217 ROOKS, MONSTERS, TREASURES 

9318 DATA 75,13,13 

9460 ' ROOM DATA 

9461 DATA 1, THIS IS THE ENTRANCE TO THE DUNGEON. 

LIGHT COMES INTO THE ROOM THROUGH AH OPENING IN THE CEILING. , 2D 
.6P.38P.4S. 8 

3462 DATA 2, A SMALL DRV STONE ROOM WITH SOME BOWES IN THE CORNER 
S., K,W,H,3D,8 

3463 DATA 3, A LONG RECTANGULAR RQOH. , 22D, 2D, 4C, 14E>, 1 

3464 DATA 4, A LONG RECTANGULAR ROOM WITH HOLD ON THE SOUTH WALL 
• X, 15, 50, W, 1 

3465 DATA 5, A SMALL SQUARE STONE BLOCK ROW. , 40, 30P, 23S, H. 
3406 DATA fcfl LONG WIPING COEKIDGR GOING UPHARD , ?P,&8S,1P, 8 
3467 DATA 7, ft NARROW UIHDIHG CORRIDOR GOING WEST. , U. 27S, €P, 22T, 

6 

3408 DATA 8, A GREAT ROUND ROOM WTH A HIGH DOMED CEILING., 6S,2& 
E?,13D,28lV 2 
3465 DATA 3, THE NORTHEAST CORNER Of A LARGE L-SHflPED ROOti 14$, U 

asciic, 8 

3416 DATA i(3,THE SOUTHERN END OF A LARGE L ROW, 3C,W,12D,ui, 

3411 DATA lh THE i€STERN END OF L SHAPED ROOM, H, 3u \L 65P, 10 

3412 DATA 12.- A LONG CURVING PASSAGE, iOD, 12P, «, W, 8 
9413 DATA 13, A LONG CURVING PASSAGE., 8D.liW.12P, @ 
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9414 DATA 14/ fl DIRTY ROOM FULL OF ORC SIGNS. , tb3D,9S,W, 6 

9415 DftTft 15, THERE ARE SIGHS OF PftSSftGE HERE. , K,22P,H,16D, 8 

9416 DATA 16, THIS OPENS UP INTO fl LARGE ROOM. , M»15D,H,i7C 8 

9417 DATA 17. THE ROOK SHOHS SIGNS OF USE. , ISC 16C21P, 63D, 8 

9418 DATA 18, THERE fits SWE HUWftN SKELTONS IN THE NU CORNER. , H. 
19C17CW, 9 

3419 DftTft 19, THERE ftRE BONES SCATTERED ft80UT. , M,20D,H,18C, 8 
9426 DATA 26, THE ROOM SMELLS OF ROTTING FLESH., W,H,H,19D, 4 

9421 DftTft 21, THE ROOM IS DUSTY AND FULL OF SPIDER HEBS. , 17P.Hl 
1S,W, 5 

9422 DATA 22, ft WELL USED CORRIDOR, 23P, H, 3D, 15P, 6 

9423 DATA 23, ft LONG HORTH-SOUTH CORRIDOR., 29P, 24D, 22P, 49D, 9 

9424 DATft 24, fl LONG MINDING CORRIDOR. , H,N,25P,23D, 

9425 DATA 25, ft LONG MINDING CORRIDOR. , 24P, A. 26P> 27S, 6 

9426 DATft 26, ft LONG MINDING CORRIDOR , 25P,tt,H,8D, 8 

9427 DATA 27. fl NARROW FLIGHT OF STAIRS GO UPWARD TO THE WEST. , (4 
,250,W,7D, 6 

9428 DATA 28, ft NftRROK CURVING PftSSftGE. , 5D, 8D, H, H, 6 ■ 

9429 DATft 29, ft LONG CORRIDOR. , 31P,U,23P,W, & 

3439 DATA 38, THE CORRIDOR CURVES FROM NORTH TO t€ST. , IP,H,k,5P, 
8 

9431 DftTft 31, ft LONG N-S CORRIDOR. , 32P, 38D, 29P, 43), 8 

9432 DftTft 32, THE CORRIDOR ENDS. , 33D, K. 31P, W, 8 

9433 DftTft 33, ft SMALL SQUARE ROOH., F, 34D, 32D, 41D, 8 

9434 DftTft 34, THERE ARE STRftNGE SOUNDS IN THE EftST. , W, 35P, bl, 33D, 
8 

9435 DflTfi 35,DE6R1S IS SCATTERED ABOUT., W,H,3?D,34P, 7 

9436 DftTft 36,T(£ NfiLL SEALS BEHIND YOU., W,H,U,32S, 

9437 DATA 37, THERE ARE SOUNDS FROM BEHIND THE DOOR. , 25D,H,39C,W 
, 

9438 DATA 36.fi ROOH OF STONE BLOCKS., 3&D, 33D. N, 31D, 8 
9433 DATA 39, AN ORDINARY ROOK., 37C,H,H,3SD, 8 

9440 DATA 40. ROUGH STONE WALLS DRIP HOISTURE., W, 41C, 42D, U> 8 

9441 DATA 41, THERE IS DAMPNESS IN THE AIR. , H> 33D, U. 48C, 8 

9442 DATft 42,N0 SIGNS OF RECENT ACTIVITY., 46D,W,44C,W, 

9443 DATA 43, THIS ROOM HAS BEEN ft MONSTER'S LAIR. , HH,45S,W, 8 

9444 DATA 44, THERE ARE MVSTERQUS MARKINGS ON THE WEST WALL, 42C 
,45D,W,52S, 

3445 DATA 45,A SENSE OF FOREBODING FILLS THE ROOH , 43S,31D,&44 
D, 6 
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9446 DATA 46, THERE ARE ANlfflL DROPPINGS HERE., H.M.48CU. 8 

944? DATA 47, THERE ARE BROKEN SKELTONS SCATTERED ABOUT., W, W, 49D < & 9 

9448 DATA 4S, THERE HRS BEEN PASSftOE THRU HERE. , 460 49P, U. 58D, 8 

9449 MTH 43, ft HIDE PfiSSftGE. , 4?D, SID, U, 4&F, 8 

9456 DRTfl 50, THE LAIR OF THE HINOTAUR. , 40S, 51F', 52P, W, 2 

9451 DATA 51, fl MAZE. , 58P, 5iP, 54P, 58P, 8 

9452 DATA 52, fl rifiZE. , 51P, 44S, 55P, 51P, 6 
9453: DATA 52, ft MAZE , 50P, 54P, 52P, SOP. 8 

9454 DflTft 54, ft MfiZE. , 51P, 54P, 5?P, 52P, 8 

9455 DATA 55, A HAZE. , 52P, il 58P, 54P, 

9456 DATA 56, fl HflZE. , 52P, 5?P, S9P , 52P, 8 
945? DATA 57, ft HAZE. , 54P, 58P, 59P, 56P, 
3458 DATA 58, fl USVRINTR . 55P, 48£>, 57P, 57P, 
9459 DATA 59, fl RAZE. , 56P, 57P, 610 56P, 6 
9466 DATA 60, CLEAR, 610660680 680 6 

9461 DATA 61, CLEAR, 59C, 620 68C, 620 

9462 DATA 62, KEEP OUT 
CONSTRUCTION SITE, 610610 600 641), 
9462 DATA 62, "STRAIGHT AHEAD LEADS THE HAY, 
OTHER HflVS NILL GO ASTRAY. ", 6101?D,6606iC, 6 

9464 DATA 64, THERE ARE TOOLS AND BROKEN ROCK SCATTERED ABOUT. , 6 
1F",62D,69P,P, 11 

9465 DATA 65, A SPRING FLOWS OUT OF THE ROCK AND DOWNHILL TO THE 
WEST., it UP. HOP. 

9466 DATA 66, THE STREAK DISAPPEARS UNDER THE WESTERN WALL. , W.65 
P,67P,63S, 8' 

946? DATA 67, A PASSAGE CARVED OUT OF THE ROCK, , 66P, 78D, 72D. 69D, 

9468 DflTft 68, THE STREAM FLOWS THRU A NARROW CRACK IN THE FLOOR. , 
W,66D.W,W» 12 

9469 DATA 69, BONES AND SKELTONS ARE EVERYWHERE. > M.F.71&H. 8 
9478 DATA 76, SOME EHPTY BOXES LIE ABOUT. , W,H,H,67D, 8 

9471 DATA 71, THE WALLS ARE ROUGH HEHEN STONE., &72&H.M. 6 

9472 DATA 72, A LARGE RGOH. , 67D, 720 74C, 710 8 

9473 DATA 73, DUST LIES THICK HERE., W,W,W,72C O 

9474 DATA 74, ,?2CW,W,75P, 

9475 DATA 75,BGNES AND STONES AJ£ SCATTERED ABOUT., W,?4P,W,W, 13 

ROUTINE: MONSTER DATA 

LINE: 9500-9513 

PURPOSE: Monster descriptions. 

PROCESS: The format for the monster data is: monster number 

IM, monster description MD${lM}, attack strength 
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MA(IM), defense strength MD(IM), and treasure 

number MT(IM). 

9580 'MONSTERS 

9591 DATA LFOUR QRCS ARE GNAWING OK ft GN0ME,? t 6,l 

3582 DfiTft 2, THREE SKELETONS RISE OUT OF COFFINS, 6, 5, 2 

9503 DATA 3,A SAVAGE MINOTAUR RUSHES AT YOU !,U,U*3 

9504 DATA 4, FIERCE CftRRIOH EATING GHOULS RUSH AT VOUl . 7.5,4 

9505 DATA 5, ft HUGE SPIDER DROPS FROM THE CEILING. , 16,5,5 

9506 DATA 6, A LARGE POISONOUS CENTIPEDE COMES OUT OF A CRACK IN 
Tt€ HALL, 6.2,6 

9507 DATA 7, ft BAND OF TROLLS IS MUNCHING ON BONES. , 8,7, 7 

3568 DATA 8,ft LARGE 6REEN CENTIPEDE LIKE CREATURE IS FEEDING OFF 
A CORPSE. , 9,4,8 
9589 DATA 9, A LARGE BUGBEAR RUSHES OUT TO CRUSH YOU ', 9,8,9 

9510 DATA IS, A GIANT RAT RUSHES OUT OF ft HOLE IT LOOKS HUNGRY. 
> 5,3/18 

9511 DATA 11, SOMES DWARVES WITH PICKS AND SHOVELS ARE TUNNELING. 
. 5,5,11 

9512 DATA 12, ft LARGE SNHKE COPES OUT OF THE WATER. 5,2,0 

9513 DATA 13, AN DELIGHTED OGRE THINKS HIS DINNER HAS ARRIVED !, 
$,7.0 

ROUTINE: TREASURE DATA 

LINE: 9600-9613 

PURPOSE: Treasure descriptions. 

PROCESS: The format for the treasure data is-, treasure number 

IT, treasure description TD$(IT), and value TV(IT). 

3606 'TREASURE 

9661 DfiTA i,R SMALL WOODEN CHEST CONTAINS SOME GOLD. ,156 

9682 DATA 2. ONE SKELETON WEARS ft SWORD UITH A JEWELED HILT. .98 

9683 DftTA 3, A HEAP OF SILVER AND GEMS AWAITS YOU. ,23B 
9604 DfiTA 4, THERE ARE SOME COINS IN THE RUBBISH. . 48 

9665 DftTA 5, THERE IS A LARGE SAPHIRE IN THE SPIDER'S BELLY. , 206 

3606 DftTft 6, THERE IS A GOLD COIN IN ft CRACK IK THE FLOOR, 1 

9687 DATA 7, THERE IS ft GOOD SET OF CHftIN nfilL IN THE CORNER. , 125 

9603 DftTft 8, YOU FIND ft SMALL PURPLE GEM. , 66 

9669 DATA 3, A Bffi Of TRINKETS AND COPPER PIECES. , 20 

9610 DATA 10, IN THE RAT'S HOLE IS B SHINY BRACELET. , 50 

3611 DATA 11, THEY RUN AWAY AND LEAVE THEIR TOOLS BEHIND. , 5 

3612 DATA 12, NONE, 

9613 DATA 13. THERE IS A BQK OF COINS AND TRINKETS , 120 
3939 END 
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immcDiaTe 

IFDCE 

IIIWIIIII1IIIIIIIIIIIIIIIIIIIII1IIIIIMIIII! 

by Dean C. Westerveit 

You may never have heard it called "immediate mode" but you 
have used it often - every time you tell your TRS-80 to RUN, LIST or 
EDIT. Did you know that nearly all of the instructions which you 
would normally include tn a program can also be used in "immediate 
model"? To demonstrate, type in the following mini-program: 

FORI = 1 T0 10: PRINT I: NEXT 

When you hit (ENTER), thedigits 1 through 10 are printed in a 
vertical column on the left side of your screen; the immediate mode 
executes this program — even if you have a resident program in 
memory! 

You can use this technique to help in debugging programs. After a 
RUN, ask your computer for the value of the variables in your 
program. Just type: 

PRINT X (ENTER) 

You will immediately see the latest value for X. This won't work if 
you have Just performed an EDIT because editing resets ail variables 
to zero. You can even type PRINT X; Y, Z and get the requested 
multiple print-out, with the usual BASIC format as specified by the 
semicolon and the comma. 

Multiple-instruction statements like those in the FOR-NEXT loop of 
the first example give you a strong debugging power, especially 
useful if you are writing machine code or assembly language. For 
example, if you need to know the contents of several memory 
locations, just use something like: 

FOR K = 15361 TO 15380: PRINT K; PEEK (K),: NEXT 
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Twenty entries will be printed, each consisting of the memory 
location, K, followed by a one, two or three digit decimal 
representation of the contents of that location. In some cases, this 
may work even better than T-BUG. At least the values are in decimal 
-- not hex. 

If you wish to rewind a tape or preset it at a given point, use 
immediate mode. You won't have to unplug the remote control cable 
if you use: 

OUT 255,4; FOR K = 1 T0 15000: NEXT 

The Out 255,4 starts the tape recorder (provided you have previously 
pushed the appropriate button). The recorder will continue to 
operate while the timing loop is running, about 30 seconds. You can 
increase or decrease the time by changing the 15000. You might even 
substitute a large number like 1 million and control the shut-off 
manually by pressing the (BREAK) key. 

Here is a neat trick to use when debugging a loop in a program; 
type in the loop, but omit the final NEXT. Perform a RUN. The 
program will go through the loop once and then stop - it ran out of 
program lines. Now, in immediate mode, you can type NEXT 
(ENTER). The loop wfil be executed again! When you are working 
with nested loops, and after the last performance of the innter loop (a 
place where you might eventually have NEXT: NEXT), the machine 
won't do anything when you enter NEXT. In that case, it is waiting 
for you to type in another NEXT so it can execute the outer loop. 
When you feel that the loop is completely debugged, add the NEXT 
statement to your program and proceed from there. 

One more thing; you don't need to type RUN to start a program; 
you can also use something like GOTO 100. Under this command, 
your variables are not all reinitiated to zero as they are when you type 
RUN . This can be a real advantage if you wish to initiate a variable at 
a given value. Something like the following will do the job; 

X = 3: GOT0 100 

Don't forget the immediate command CONT which tells the computer 
to continue with the program from the point at which it was 
interrupted by an error, a STOP instruction or by your hitting the 
(BREAK) key. 

Hope you are able to use the "immediate mode" and that it will 
help you in debugging. Let me know of any novel and interesting 
uses you find. My address is; 

D. C. Westervelt 

R.D.#2, Box 171 

Acme, PA 15610 

lililililillliliillililllilllililililllilililllilililtlllililllilililllilililililllllililililllllililllilll 
iiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 
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Introducing... 

MMSFORTH 



OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 
OK 

ok THE LATEST IN A HIGH-LEVEL LANGUAGE SOFTWARE 
ok DEVELOPMENT SYSTEM. 

OK 

OK 

MMSFORTH is a new version of the powerful, fast, and 
ok structured FORTH language, specifically written for the 
OK TRS-80, and offers such features as: 

OK 
OK 

ok * Double precision integer math 

ok • Reverse polish notation 

• Blinking cursor, auto-repeat keyboard 

• Virtual Memory! 

ok * Editing capabilities similar to Level II 

• Supports Z-80 assembly blocks within the FORTH 

structure 
ok 

Ok 

OK MMSFORTH is available in two versions; a complete version for 

ok disk systems and a close approximation to that version which is 
°k designed for the Level II, 16K tape system. The disk version 
offers "virtual memory", supports one to four disk drives, does 
ok not require any other disk operating system, and also has both 
ok disk and tape input/ output capabilities. 
ok 

°£ TAKE ADVANTAGE OF A POWERFUL STRUCTURED 

ok LANGUAGE WJTH THE EXECUTION SPEED OF A 

ok COMPILER. 
ok MMSFORTH is avaiiable now from TSE 

ok 
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The MMSFORTH sy.stem diskette or 
cassette tape provides for the expansion of 
FORTH commands by the user. There are 
many programs and routines provided as 
examples of FORTH programming, such as: 



Routines For: 



Programs For: 



String Handling G a™e of Life 

Graphics Checkbook Balancing 

File Sorting String Sort 

Screen Printing Number Guessing Game 

The TRS-80 Software Exchange intends to fully support the 
introduction of MMSFORTH with the development of 
supporting application modules. Early MMSFORTH projects 
are: 

floating-point package • 

assembler/ cross compiler to provide • 

standard TRS-80 load modules 

large flexible mailing list system • 

generalized data base management system • 

word-processing package (FORTHWRITE) • 



MMSFORTH, by Miller Microcomputer Services, includes 
introductory documentation with further references to the 
MicroFORTH primer of FORTH, Inc. This manual is an 
invaluable reference for the FORTH programmer, and can be 
purchased separately by anyone desiring more information on 
the FORTH language structure. 

30-DAY INTRODUCTORY PRICE 

MMSFORTH cassette version, Level ll,16K $45.00 

MMSFORTH disk version, Level II, 16K 65 00 

MicroFORTH primer 15.00 



1*« 



TRf-80 Software Exchange 

17 Briar Cliff Drive Milrord. New Hampshire 03055 
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A UTILITY PROGRAM 
THAT GREATLY EXTENDS 
THE KEYBOARD VIDEO 
AND PRINTER 
SUBROUTINES IN YOUR 
LEVEL II ROM! 
KVP runs under DOS or Level 
II BASIC. It Is relocatable 
under your control, and so 
may be used simulta- 
neously with nther 
machine language 
programs. 



mm 



Here are some of the things you'll be able to dp; 



USE AN EXTERNAL KEYBOARD 
Or, use any other serial input device 
in place of trie TRS-flO keyboard 



PRACTICALLY ELIMINATE KEY 
BOARD BOUNCE The amount of 

debouncing is user-adjustable 



t.i 



DISPLAY UPPER AND LOWER 
CASE LETTERS on your video 
monitor screen 




SIMULATE A RADIO SHACK 
SCREEN PRINTER using an ordinary 
primer 



USE MOST ANY ASCII SERIAL 
PRINTER auch as Teletype 33 or 
Spin term 



fek 



EXCHANGE PROGRAMS WRITTEN 
IN BASIC WITH OTHER COM 
PUTERS From the Sorcerer to the 
IBM 370 <and TRS-Ws, too!) 



AiJeasilfcK menioryredtiJSBd * v 
~ A UTILITY PROGRAM 

Self-rel«C8tlng for 1 6K , 32K , or 48k systems 
$24.95 or tape $29.95 on disk - % 



LEVEL I in LEVEL II >, ap,a RAT 

Remember the Good Old Days? . . . You can recapture them ! 

Level I BASIC interpreter loads in top 4K of any 16K Level II 
TRS-80. Allows unmodified load, run, and CSAVE of Level I 
programs — no conversion hassles! Great for teaching beginners, 
young and old, to program in BASIC. 

"System" tape /Level I for Level II, 16K -$15.00. 

Tf E TRf-OO f of luicirc Exchange 

™ 17 BrUr CIHI Drtv» Mllford. Hn> Hwnpahlra 030*5 
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EN6INEEI 



by David Bohtke 

The object of this game is to construct a bridge connecting the two 
blocks at the top of the screen. To do this, you must place your beams 
(a accordance with the inspector's specifications. You may work 
alone, or several players may compete to see who can construct the 
bridge in the fewest days. 

You will discover a thing or two about construction (the right end of 
the beam must be supported) and inspectors (who mostly get in the 

way). 

That bridge inspector is a pesky devil. The higher the bridge 
construction gets, the more he makes a nuisance of imself. No new 
beam can be placed above the level of his feet, and he tends to dislike 
heights. If you let him get you in a corner where you cant place a new 
beam, you have to give up and forgeit the game. 

A relatively short, easy game, but stilt plenty of stimulation; and it's 
unique - we know of nothing else that is even similar. 



10'************** 

* SOFTSIDE PRESENTS * 

* ENGINEER * 

* BV DRVID BHtKE * 
************** 

28 eLS:DEFINTfi-Z 

30 PRINTS22, "E NG I NEE R" .PRINT 

48 PRINT"T0 BECOME tt) ENGINEER, YGU BUST CONSTRUCT fi TRESTLE DRI 

&GE" 

56 PRINT'CONNECTING THE TWO BLOCKS ftT TT€ TOP Of THE SCREEN Ttt 

IS" 

ft PRINT'lS DONE BY FlftCIHG BEAMS IN ACCORDANCE KITH THE INSPECT 

OR'S" 

70 PRM'SPECIFICflTIGNS. JUST MOVE THE BLINKING GUIDE TO THE PO 

SITION" 

86 PRIHT'YOU WISH TO PLACE Tr£ EEfiK. THEN ENTER THE DIRECTION YO 

U HfiNT" 
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98 PRIHT-TO SET THE SEW. YOUR STfiRTIHG POSITION MUST BE BELCH 

THE" 

188 PRINT 8 INSPECT0R5' FEET. SEVERfiL PLflTCRS Hffi COMPETE TO SEE 

MHO CflH" 

116 PRINT-CONSTRUCT THE BRIDGE IN THE FEWEST EWVS. "rPRINT 

126 PRmrWJVID J. 80BLKE COGGON, IA mi2, 19?9*:PRINT 

OS PRINT B PRESS =€NTER= TO BEGIN . . . "; :INPUTZ*:CLS 

146 PRINTK28,STRIHG$(4,191); :PRINTei88,S7RING*<4,19i>; 

158 REM *** SET CQNYON *** 

168 FCRX=8T0i2?:SETa43):NEXT 

179 y=8;D=114:X=6 

186 SET<X+2, V) : SETCX+2, V) ;SEKX+D-2, V):SET(X+f>-3, V) 

196 SET<& V) :SET<X-ta V) :SET<X+1, V) :SET(5»-i, V) 

m V=M:IFK*IK3>>2THENX=X+l;[>=Ei-2 

218 IFV=43GOTQ22eELSEG0T0188 

220X=45+RMX38):V=42 

236 GOSUB1638 

240 IHtWX50>+40:N=8 

256 PR1NTS25, "ENGINEER"; 

268 IFP0INT<H,N+i>GQTG288 

276 N=N+i:G0TQ268 

288N=N-iB:IFN<0THENN=8 

298 SET<ft.N):SET<H4i,N> 

388 REH *** POSITION BEflN 

318 PMNTCStiB. "ROVE GUIDE : 

=RI6HT *'iCHR*(92);" 40M) 1 ; 

328 CJ=INKEV$:IFC*='*"RESET(H J N>:RESET(t1+i,N>:G0T029e 

338 IFflSC<C$>=9GOTQS80 

348 IFflSC(C*)=SGOT04ee 

358 IFflSC(C$M8G0TO428 

368G0T0298 

378 REN *** SET 8EBH *** 

388 IFPQINT(M+2,N>GQTO440 

396 RESET(HN):RESET(N+LN):H=H+2:G0T0296 

488 IFP0INT(M-i,N)GQT0448 

418 RESET(R-N):RESET(N+l,N);t1=«-2;G0T0258 

428 IFPOINT<M,N+l>G0TO44e 

438 RESET(N,N):RESET(H+l,N):N=»H:Gt)(TO290 

448 PRINTS, CHR*<3i>? :ft*=II*EV* 



";CHRJ<93);" =L£FT 



;CHR*<94>;" 
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459 IFIKWtfHTW6& "STICK MUST START BELOH INSPECTOR"; :RE$EKM,ti 
):RtSET<mLN>:FORI=lTOt088:NEXT.GGTO24e 

m PRMem tress direction to set &m < 1-3 ) *-, 

478PRINT§76i, 8 i 2"; :PRIMT§825 J CHR$<148)/ 2'j :PRIKT888?, "M 

ft"; 

486 C$=INKetf:!FC$=" 8 THEH488 ELSE C=VflLCC¥> 

499 IF Da OR P>3 GOTO 446 

500 FRUfTCKL n 'i :PRINTG825, ■ ", :PRIN7&86, " "; 
518 WMXM:ltt»H:Nl=N 

520 FOR 1=1 70 18 

53a IF H>122 OR N<4 OR fK2 GOTO 628 

540 SET(K.N);SET(M+1,N>;SET(M+2 J N) 

550 IFP0INT<H+3,N> THEN 770 

560 ON D GOTO 570.588.590,609 

578 I=l4RHD(2>:N4f-l:Ii=U+l:G0T0616 

588 K=M+2:N=N-i:G0T0 619 

599 H=M+2:G0TG 618 

609 H=H+2:N=N+1 

619 NEXT I 

629 IFP0INT(H+2,N-1>=1 OR D=l GOTO 778 

638 PRINT8960,CHR$<31); :H=H1:N=N1 

640 REH *** ILLEGflL PUCBEHT *** 

658 PRIMTK68, 'THE RIGHT END OF THE BEfltt MUST BE SUPPORTED !'; 

666 F0RMT0666:NEXT 

679 F0RI=lT01S:RESET(HH):RES£T<IHl>N):fiESET(m2,N) 

688 ON & GOTO 699, 780, 718, 728 

698 H=tH:60T0739 

780 H=H+2:N=N-i:G0T0738 

718 H=»H2:G0Tt)738 

728 H=H+2:N=M+1 

730 IHK2GOTO750 

748NEXTI 

758 PRINT8822, "DFN ";Dfc :PRWT0968,CI**<3i); 

760G0T0248 

778 PRINT8960 ) CHR*(3i>; 

788 REH *** HOVE INSPECTOR *** 

798 PRINTK68, 'INSPECTION . . . "; 

698 IF H=9 THEN H=l aSE (H 

818 FORM TO R»<49)+18 _ - Zll'I .V. 

820 GOSUB1050 
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838 IF )j=i GOTO 888 

m JFPOHiKX-2, Y+l>=8flHDFGINTa Y+i)=8flNDPQINT<X+2 J YH)=0T}£N¥= 

V+l:GCT09ie 

856 IFP0IMT(X-tV)=»nOK=X-l:Q0T(»18 

866 IFreiN7<X,Y-l)=0THEtfY'=Y-l;GOTO9i8 

8?B GOT0918 

m IFPOINT<X,V+l)=0flNDPOINT(X+3,V+l)=0Ti€NV= , r , +l:6OTO918 

890 IFPOINKX+2,V)=eTf€fK=X+l:GOTO910 

968 IFTOINKX, M ) =0THEHY=Y-1 : GOTO310 

910 GOSUB10S8:IFV<:6 OR X{8 OR X>122 GOTO 939 

926 NEXT I 

946 PRIHTeea "DflV ";Dft> 

956 R£H *** CHECK FOR COMPLETED BRIDGE *** 

960 F0RI=i5T0il5STEP5:FORJ=4T08 

970 IFPOINT(I,J>GDTO990 

980 NEXU;G0T0248 

998 NEXTI 

I860 PRINTB66,CHR*<31); 

1918 PRINT8%8, "YOU'VE FINISHED ! PRESS =ENTER= FOR M 

THER GflHE 'j ;INPUTZ$ :RUN 

1028 REM *** SET INSPECTOR **» 

1039 SETa Y) : SETOf+L Y-i) . 5EKX+2, V) : SETOC+L Y-3> 

1048 SET a Y-2) : SETCX+1- Y-2) : SET (X+2, V-2> : RETURN 

1056 RESET(X.Y>:RESET<X+lY-l):RE5ET(X+2,V):RESEKX+l,Y-3) 

1869 RESETtX, V*-2> :RESET<X+i, Y-2) :RESET<X+2, Y-2) .-RETURH 
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Lance Micklus' 
ST80-the Smart 
Terminal Program- 
just got SMARTER'.! 



ST80D contains extensions for disk 
drive systems to exchange files with a 
timesharing computer or another TRS-80. 



USING ST80D, your TRS-80 can do all this and more: 

Gather and pre-format data, store it on disk, then 
transmit it to a timesharing computer for processing. 
Processed data from the timesharing computer can 
then be sent back to the TRS-80. 

One TRS-80 can generate a data base and share it with 
another TRS-80 thousands of miles away by telephone. 

Users may customize their terminal program by 
redefining the translation tables. Conversion from one 
set of tables to another takes only seconds. 

Auto logon feature sends your account name, number 
and password upon request. 

ST80D can transmit any type of TRS-80 ASCII file, 
including BASIC programs stored in ASCII format, and 
most BASIC data files. Binary files can also be 
transmitted from one TRS-80 to another, allowing even 
machine language programs to be sent over the phone. 



ST80O is a practical, full-feature terminal program that 
has been used on a variety of timesharing systems. 

These include IBM 370, Honeywell Sigma/6, Harrts/7, 
DECSYSTEM 20, Dartmouth Timesharing, CDC Cyber 
and HP 2000. 



If you're looking for a professional quality product, 
not an amateur program, then order ST80D today! 



For 32K 
disk systems 
$79.95 




tf£ TRJ-0O Software Exchange 
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See us at the 



Hynes Auditorium, Boston 

Pri, Sat, &Sun, 

Sept. 28,29 & 30 



Recommended for 
Sin? 11 Businesses 



Small 
Business 

BooKkeepin 

mm ®nm> 

Based on the well- 
known Dome Book- 
keeping System. Posts 
expenses to as many as 42 
accounts {which you may 
customize). Produces video 
and line printer reports for" 
year to last week, this week, year to date; 
supports cash system of accounting; 
stores data on disk for fast retrieval. 

ftC TRI-ftO foftumre Eiichcinge 




Available for 32K 
Disk Systems - $24.95 



i T BTitr CUTl Drhw M \Hq*3 , New HampiWrp MOSS 
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TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 

NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors and 
omissions in TRSDOS 2.1 and disk BASIC, yet the two are 
completely compatible! Programs and files saved under one can 
be used with the other interchangeably. Going from TRSDOS 
2. 1 to NEWDOS is like going from Level I to Level II : more 
power, more convenience, greater speed. 

NEWDOS NEWDOS+ 



• Use all DOS commands 
(incl. directory) in BASIC 
Automatically load and run 
a BASIC program 

on power-up 

• Produce variable cross- 
reference tables 

• Open 'E' to add to 
sequential files 

• Append files 

• Use your line printer as 
a screen printer 

• Renumber BASIC programs 

• End keyboard bounce 



Editor/Assembler for disk » 

Disassembler • 
(Z80 machine code) 
LM Offset-allows transfer of any • 
system tape to a disk file 
(automatically relocated) 
BASId-Level one BASIC • 
saved on disk 
LV1DSKSL - not a typo, this • 
saves and loads BASIC1 
programs to disk 
DIRCHECK-tests and lists • 
disk directory 
SUPERZAP-display/print/modify • 
any location in memory or on disk 



And, best of all, say goodbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 
Apparat's NEWDOS is fully documented and available for 
only $49.95. NEWDOS+ , Just $99.95 

NOTE: Use of this software may require documentation 
available only with the purchase of Radio Shack TRSDOS 2.1 
and/or the Radio Shack Editor/ Assembler. 

Tf £ TR5-80 Sol tivcire Exchange 

ft 1? Briar Cliff Drive MilforcJ. N>w Himpstllrs 03055 









GAMES 



yL £ Market Basket 
* CATALOG 



»Ofii'gS 



■ .. 



HAHSWAkS 




, 



. I . : »BM 
SPGCIAt. pysfes 

GAMES ?6P-S0W>! 
ACCESSORIES 

mmi 

Warfare I 4- game anthology, Le- 
vel II, 16K$7.95 
Backgammon by Scott Adams 
Level II, 16K$7.95 

X-Wing Fighter II by Chris 
Freund Level II,. 1&K $9 95 
Taipan by Art Canfil - Level II, 
16K $9.95. 

Cribbage by Roger W, Robitaille, 
Sr Level I or II, 1bK $7.95 
Sargon Chess by Dan & Kathe 
Spracklen Level II, 16K $19.95 
Chess Companion by Michael 
Kelleher Level I1„16K $7,95 
Three D Tic Tac Toe by Scott 
Adams Levei I or II-, 16K $7.95 
Concentration by Lance Micklus 
Level I or II, 16K $7.95 
Amazin' Mazes by Robt Wallace 
Level ll,16K$7.95 
Time Bomb by David Bohike 
Level I or II, 16K$4.95 
Balloon Race by Dean Powell, 
Level II, 16K, $9.95 

Kb 



SOSVfES 

i ■■ a 

\R£ ACCESSORIES 

HARDWARE ACCESSOBiES 
SPECW I. PURPOSE 

Snake Eggs with sound by Leo 

Christopherson Level ll F 16K 

$14.95 

Life Two by Leo Christopherson 

with Sound, Level II, 16K $14.95 

Android Nim with sound by Leo 

Christopherson Level II, 16K 

$14.95 

Cubes by Leo Christopherson 

Level ll,16K$9.95 

Mastermind II by Lance Micklus 

$7.95 

Mastermind II source list $20.00 

Robot/Breakaway Came duo by 

Lance Micklus Level II, 4K $7.95 

Tycoon by David Bohike Level II, 

16KJ7.95 

Slalom by Denslo Hamlin Level 

11, 16K$7.95 

9 Games for Preschool Children 

by George Blank Level II, 16K 

$9.95 

Ten Pin by Frank B, Rowlett, Jr. 

Level II, 16K $7.95 

All Star Baseball by David 

Bohike, Level II, 16K $7.95 






■ 



End Zone by R. W. Robitaille, Sr. 

Level I or II, 16K $7.95 
Atlantic Balloon Crossing by 
Dean Powell Level II, 16K Special 
price, $9.95 

Space Battles by Level IV, Level 
II, 16K Tape or 32K Disk, Tape - 
$14.95, Disk -$19.95 
Star Trek III. 3 by Lance Micklus 
Level II, 16K $14.95 
Dog Star Adventure by Lance 
Micklus Level II, 16K $9.95 
Adventures on tape by Scott 
Adams Level II, 16K Choose one: 
Adventureland, Pirate's Co\e, 
Mission Impossible, The Count, 
Voodoo Castle, $14,95 
Adventures on disk by Scott 

Adams. Pirates Cove plus Adven- 
tureland, or The Count plus 
Voodoo Castle for 32K disk 
system $24.95, 

Now in machine language for 
faster and easier response. 

Safari by David Bohlke Level II, 
16K$7.95 

Treasure Hunt by Lance Micklus 
Level lorl!,16K$7.95 
'Round the Horn by George 
Blank Level II, 16K $9.95 
Pork Barrel by Ceorge Blank 
Level II, 16K $9.95 
Kamikaze by Russell Starkey 
Level II, 16K $7.95 
All Star Baseball by David Bohlke 
Level H, 16KS7.95 
Air Raid by Small System Soft- 
ware Level I or II, 4K $14.95 
Barricade by Small Systems 
Software. Machine language - 
$14.95. 

Journey To The Center Of The 
Earth by Greg Hassett. Level II, 
16K Tape $7.95. 

Pentominoes by Solomon W. 
Golomb. Level II, 16K - $9.95. 



Inventory 2.2 by M. Kelleher and 
R.W. Robitaille, Sr. 16K disk 
systems $59.95 

Inventory System 2.3 by M, 

Kelleher. Improved version, 

$79.95 

Inventory 'S' by BUS-80 Level II. 

16K Tape - $24.95; 32K Disk - 

$39.95 

Payroll by Stephen Hebbler for 
disk systems 32 K $59.95 
Accounts Receivable II by S. 
Hebbler 32K disk systems $79.95 
Appointment Log by Michael 
Kelleher Level II, 16K $9 95 

General Ledger I by M Kelleher, 
requires 32K Disk, $79.95 
Mail List II by BUS-80 32K disk 
systems $99.95 

Small Business Bookkeeping by 
R.W. Robitaille, Sr. Level I, 4K 
or Level II, 16K with journal 
$22 .00; without journal $15 00 
Small Business Bookkeeping ior 
Disk by Miller Microcomputer 
Services and Roger W, Robi- 
taille, Sr., 32K Disk. With 
Journal $31.95; without journal 
$24.95 



Calculator by R.W. Robitaille, Sr. 

Level I or II, 4K $2.95 

Moving Signboard by Circle 

Enterprises Level I or II, 4K 

$9.95 

Histograph/Scattergram by Gary 

S Breschini. Level II, 16K $9.95. 

Simple Simon by George Blank 

Level II. Written in BASIC. $4.95 

Math Drill by K I Brown Level 
ll,16K$4.95 
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RPN Calculator by Russell Star- 
key Level II, IfcK 59.95 
Ham Radio by Michael Kelleher 
Level II, 16KS9.95 
Ham Radio ARS 1.1 for 32K disk 
$24.95 

Electronics Assistant by John 
Adamson Level II, 16K $9.95 
Preflight by Stephen Hebbler 
Level II, 16K $20.00 
Basic Statistics by Steve Reisser 
Level II, 16K $20.00 
Drill Masters by Computer 
Graphics — specify title desired 
Level II, 16K $7.95 EACH: 
German, Chinese, Russian, Ital- 
ian, Spanish, or Music Theory. .." 
Keyboard-80 by John Adamsoft, 
Level II, 16K $9.95 

■JjQ.-frM.il 

Typing Tutor by 80 US. Level l%' 

16K - $19.95 

Secrets of the Tarot by John T 
Phillipp. Level II 16K $9.95. 

Biorhythms by Frank 8. Rowletit, 
Jr Level I or II, 4K $4.95 
Personal Finance by Lance Micfc- 
lus. Level II, 16K $9.95 
Advanced Personal Finance by 
Lance Micklus For 32K dis/c 
systems $24.95 

Home Financial Management by 
Michael Kelleher Level II, 16K 
$9.95 



UTILITIES 

NEWDOS by Apparat $49.95 
NEWDOS+ by Apparat $99. 95 

Three Monitors for Disk by Smeill 
Systems Software Disk for T6 
through 48K (all on one) $29.95 
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KVP Extender by Lance Micklus 

Tape, $24.95 Disk, $29.95 

KVP 232 by Lance Micklus - KVP 

adapted for the TRS-232. 

Tape $24.95 

ST80 Smart Terminal Level II, 

16K $49.95 

ST80D SMARTER Terminal for 

disk systems $79.95 
Micro Text Editor by Don Coons 
Level N,4Kor16K*9.95 
TextSO by Frank B. Rowiett, Jr. 
For 32K disk systems $59.95 

8080-Z8Q Conversion Level II, 

16K $15.00 

Renumber by Lance Micklus 

Level II, available in 4 through 

48K (specify when ordering) 

$15.00 

Renumber source listing $20.00 

Renumber on Disk all versions on 

diskette $25.00 

Machine Language Monitor by 

Small Systems Software Level I 
or II, 16K $26.95 

Electric Pencil by Michael 
Shrayer. Powerful machine lan- 
guage word processing system. 
Level II, 16K tape $100; Disk 
version $150. 

Level III BASIC by Microsoft, 
$49.95. 

Level I In Level II by Apparat. 
Level II, 16K -$15.00. 



For more detailed descriptions 
of our TRS-80 software and 
accessories, send for the TSE 
catalog — it's free! Write or 
call today for your copy: 

TRS-80 Software Exchange 
17 Briar Cliff Drive 
Milford, NH 03055 

603-673-5144 



Fortran by Microsoft, 32K, 2 
Disks — new low price $195.00 

MMSForth by Miller Microcom- 
puter Service. Powerful new 
compiled language — cassette 
version, Level II, 16K - $34.95; 
Disk version, Level 1 1 , 16K 
44.95; MjcroForth primer $15,00 
System Copy by Kalman Bergen, 
Levei II, 16K $9.95. 



il^hMllf.l.TJ 



m -m 



Sargon Handbook by Dan & 

Kathe Spracklen $14.95 plus 

$1.00 shipping 

The BASIC Handbook by Dr. 

David A, Lien $14.95 plus $100 

shipping 

Z80 Instruction Handbook by 

Scelbi Publications $4.95 

The Little Book of BASIC Style by 

John Nevison $5,95 plus $1,00 

shipping 

TftS-80 Assembly Language Pro- 
gramming by William Barden, Jr. 
$3.95 plus $1.00 shipping and 
handling 
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60*075*5144 

TfCTR*80 Softumc CiKhfMftc 



l > m*H.MIM 



Cassettes boxes of ten each. 

C-10, $6.50 plus $1.00 shipping; 

C-20, $7.50 plus $1 00 shipping 

Djiskettes Dysan, box of 5, $24.95 

plus $1.00 shipping; Verbatim, 

box of 10, $34.95 plus $1.00 

shipping 

Diskette Storage Box $5.00 

TRS 232 by Small Systems 

Hardware — $49 95 

Percotn Disk Drives single or 

dual, for TRS-80's. Single drive, 

$399.00; Dual drive, $799.00; 

Cable (required) $29.95 

Floppy Armour™ Protective 

envelope for shipping floppy 

disks, 5-pack - $4.95 plus $1,00 

shipping & handling 

16K Memory Kits by Ithaca 

Audio, 16K RAM's $99.95 




IMPORTANT 
• No sales tax. 

• All C.O.D.'s or special delivery 
orders are a minimum of $5.00 
for special handling. 

• When ordering Percom, please 
add $5.00 [each] packaging and 
handling fee. 



WANTED: Used TRS-80 equip- 
ment! We buy and sell used 
equipment. Call or write for 
details. 

SEEUSATTHE 
NORTHEAST COMPUTER SHOW 

SEPTEMBER 20-30, 1970 

Hynes Auditorium/Prudential Center 

Boston, MA 

BOOTH CS67 
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'3365 



PO Box 68 
Milford, NH 03055 

"your B AS I C software magazine ' ' 



Rush me the next 12 issues of Soft Side 

□ USA bulk . $18 1 yr. DS32-2 yrs. □ CANADA/MEXICO $25 1 yr. 

□ USA first class $25 1 yr. DOVERSEAS airmail $30 1 yr. 

□ APO/OVERSEAS surface $25 1 yr. Telephone your change card order! Calf 



Credit Card 



our Subscription office Monday through 
Friday 9:30 to 5:30 (Eastern time)at 
603-673-5144 



Exp. Date. 
Signature- 

Narne 

Address — 
City 



Interbank # (M/C only). 



State - 



Zip- 



L_. 



Please remit in US funds ONLY 



Ready to get serious? SUBSCRIBE TO PROG/80 the magazine 
dedicated to serious prog rammers... beginners to professionals 



SUBSCRIPTION RATES - 6 issues per year 
USA Canada 

BulK mall - $15.00 Mexico 

First Class Mail - $21.00 APOfFPO >**;., 

Overseas ai rma i I - $27 . 00 Overs eas s*i rf ace 



. 12LP9™ 



... ~i 

SKatJ^TURE 


Check 1 Money Order' enclosed'' [ 


'. Master 


Charge 


QVJ$A.. 




ACCOUNT* 










VS > 


— _ — — L^. 


EXP:' DATE* 




**■ '* -*it*TER'#- 








NAME I 




ihtm 


Qri 


,*■' j 


6*'0* 


***\ 


ADDRESS 


: . „. 












CITY 


STATE 






ZjP 





Telephone orders accepted for Master Charge or VISA accounts. Call Monday through 

Friday, 9:30 to 5:30 EST at 603-673-5144 

PO BOX 68, MILFORD, NH 03055 
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Ml IMP 



* 



J0&H 



by Small System Software 



High speed machine language program with large and 
Small aircraft flying at different altitudes. Ground-based 
missile launcher aimed and fired from keyboard- Planes 
explode when hit, sometimes cause damage to nearby \"ljj aircraft. 
Score tallied for hits and misses, saved for challenge by another 
player. 

Level i or II, 4K - $14.95 
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Ttf C TRf-BO foftuKite Exchange 

M ^^ 1 > •*■ P«' tM<» MTOwa H«» KimM r. (BOSS 



P.O. Bo* 68> Milford. NH 03055 
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